REPORT  NO.  UMTA-MA-06-0044-79-1 


HE 

18.5 

.A37 

NO. 

DOT- 

TSC- 

IJMTA- 

79-16 


DIESEL  BUS  PERFORMANCE 
SIMULATION  PROGRAM 


Glenn  Larson 
Harry  Zuckerberg 

U.S.  DEPARTMENT  OF  TRANSPORTATION 
RESEARCH  AND  SPECIAL  PROGRAMS  ADMINISTRATION 
Transportation  Systems  Center 
Cambridge  MA  02142 


QfT»4A, 


APRIL  1979 
FINAL  REPORT 


DEPARTMENT  OF 
TRANSPORTATION  | 


I 

I JUN  2 iS/y  I 

I I 

i LIBRARY  ! 
! ^ 


DOCUMENT  IS  AVAILABLE  TO  THE  PUBLIC 
THROUGH  THE  NATIONAL  TECHNICAL 
INFORMATION  SERVICE,  SPRINGFIELD, 
VIRGINIA  22161 


J 

j Prepared  for 

U.S.  DEPARTMENT  OF  TRANSPORTATION 

URBAN  MASS  TRANSPORTATION  ADMINISTRATION 
Office  of  Technology  Development  and  Deployment 
Washington  DC  20590 


NOTICE 

This  document  is  disseminated  under  the  sponsorship 
of  the  Department  of  Transportation  in  the  interest 
of  information  exchange.  The  United  States  Govern- 
ment assumes  no  liability  for  its  contents  or  use 
thereof. 


NOTICE 

The  United  States  Government  does  not  endorse  pro- 
ducts or  manufacturers.  Trade  or  manufacturers' 
names  appear  herein  solely  because  they  are  con- 
sidered essential  to  the  object  of  this  report. 


/?3‘ 

/)C>, 

rs-’' 

i / Jy  7 rr 

7?'/(\ 


T*cKnical  Report  Documontation  Page 


1 . Report  No. 

UMTA-MA-06-0044-79-1 


2.  Gov«rnm«nt  Acc« 


No. 


3.  Rocipiont't  Cotolog  No. 


4.  Ttflo  and  Sobtitio 

DIESEL  BUS  PERFORMANCE  SIMULATION  PROGRAM 


5.  Roport  Ooto 

April  1979 


6.  Parforming  Orgonizotion  Code 


7.  Author^s) 

Glenn  Larson,  Harry  Zuckerberg 


6.  Porferming  Orgonizotion  Report  No. 

DOT-TSC-UMTA-79-16 


9.  Performing  Orgonizotion  Nome  ond  Address 

^^U . S .^epartment  of  Transportation 
Research  and  Special  Programs  Administration 
^Transportation  Systems  Center 


10.  Work  Unit  No.  (TRAIS) 

UM946/R9729 


11.  Controct  or  Gront  No. 


Cambridge  MA  02142 


12.  Sponsoring  Agency  Nome  ond  Address 

U.S.  Department  of  Transportation 
Urban  Mass  Transportation  Administration 
Office  of  Technology  Development  § Deployment 
Washington  DC  20590 


13.  Typo  of  Roport  and  Poriod  Covorod 

Final  Report 
Mar.  7 7 -Apr.  79 


^14.  Sponforing  Agoncy  Codo 


15.  Supplomontory  Noto* 


16.  Abstract 

A diesel  bus  performance  compute 
This  program  provides  information  on 
distance  traveled,  and  fuel  consumpti 
originating  station.  The  program  wa 
tion  although  heat  engines  other  than 
economy  calculations,  using  the  progr 
measurements  on  urban  buses  and  may  b 
a baseline  urban  bus. 

Component  submodels  and  vehicle 
have  been  carefully  structured  to  rep 
This  report  includes  a general  d 
program  and  the  type  of  input  data  it 
obtained  by  simulating  a typical  tran 


r simulation  program  was  developed, 
acceleration,  velocity,  horsepower, 
on  as  a function  of  time  from  the 
s written  for  diesel  engine  opera- 
diesel  may  be  substituted.  Fuel 


am . 


agree  well  with  available 


sit  bus. 


e considered  as  representative  of 

coefficients  used  in  the  program 
resent  current  urban  buses, 
escription  of  the  simulation 
required  alone  with  the  results 

j DEPAiiTME.NT  OF  | 
TRAN.SPORTATION  f 

JUN  2 6 i9/9 

library 

Ctssfa-.’rsBMCasKUjr!  aatuiyn.-* 


17,  Kay  Words 

Diesel,  Computer  Simulation, 
Economy 


18.  Distribution  Stotomont 

DOCUMENT  IS  AVAILABLE  TO  THE  PUBLIC 
THROUGH  THE  NATIONAL  TECHNICAL 
INFORMATION  SE R VICE,  SPR I NGF I E LD, 
VIRGINIA  22161 


19.  Socurity  Clossif.  (of  this  roport) 

Unclassified 


20.  Socurity  Clossif.  (of  this  pogo) 

Unclassified 


21.  No.  of  Pog.s 

204 


22.  Pric. 


Form  DOT  F 1700.7  (8-72) 


Ropreduclion  of  complotod  pogo  authorized 


PREFACE 


This  report  presents  the  technical  basis  of  a diesel  bus 
computer  simulation  program  which  was  developed  at  the  Trans- 
portation Systems  Center  for  the  Bus  Technology  Support  Project, 
Urban  Mass  Transportation  Administration,  U.S.  Department  of 
Transportation.  The  computer  program  simulates  the  performance 
and  predicts  the  fuel  consumption  of  diesel -powered  urban  transit 
buses  for  any  desired  driving  cycle.  Driving  cycles,  presented 
for  use  in  preliminary  analyses,  represent  the  upper  and  lower 
bounds  of  national  urban  bus  driving  cycles  when  considered  from 
an  energy  point  of  view.  The  simulation  program  was  developed 
for  the  study  of  the  effect  of  various  operating  conditions  and 
designs.  The  program  listing  is  included. 

Special  mention  should  be  made  of  the  work  of  R.  Hudson  of 
Kentron  International,  Inc.,  who  was  responsible  for  programming 
the  Diesel  Bus  Simulation  Program. 
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1,  INTRODUCTION 


To  develop  propulsion  systems  for  urban  buses,  it  is  im- 
portant to  have  a bus  simulation  program  which  can  be  used  for 
preliminary  trade-off  analyses.  Since  most  urban  buses  are  die- 
sel powered,  the  Bus  Simulation  Program  was  written  for  diesel 
engine  operation,  although  heat  engines  other  than  diesel  may  be 
substituted.  This  simulation  may  be  considered  representative  of 
a baseline  urban  bus. 

The  modeling  technique  is  similar  to  that  described  by  N. 
Beachley  and  A.  Frank‘d.  Component  submodels  and  vehicle  co- 
efficients have  been  carefully  structured  to  represent  current 
urban  buses.  Fuel  economy  calculations,  using  the  program,  agree 
well  with  all  available  urban  diesel  bus  fuel  consumption  data. 

This  report  is  divided  into  two  main  sections.  Section  2, 
which  presents  a description  of  the  computer  simulation  model, 
and  Section  3,  which  gives  the  information  necessary  to  operate 
the  program.  A complete  listing  of  the  program  is  included  in 
Section  3.2. 


^Beachley,  N.II.  and  Frank,  A. A.,  "Digital  Automotive  Propulsion 
Simulator  Programs  and  Description,"  Vol.  II,  Department  of 
Electrical  and  Computer  Engineering,  University  of  Wisconsin  - 
Madison,  Contract  No.  DOT -OS  - 301 1 2 , Dec.  1974. 
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2.  DESCRIPTION  OF  THE  COMPUTER  SIMULATION  MODEL 


The  Diesel  Urban  Bus  Simulation  Program  is  designed  to 
assess  the  performance  and  fuel  consumption  of  buses  under 
various  operating  conditions  and  with  various  power  drives.  The 
program  will  give  energy  distribution  within  the  power  drive 
of  any  synthesized  vehicle  design  over  specified  transient  and 
steady-speed  driving  patterns. 

2.1  DRIVING  CYCLE  DEVELOPMENT 

In  order  for  the  simulation  model  to  provide  useful  compar- 
isons of  the  various  types  of  vehicle  propulsion  systems,  it  is 
necessary  to  use  representative  urban  bus  driving  cycles.  The 
cycles  selected  (see  Figure  1)  are  based  on  the  TRANSBUS  and 
Small  Bus  specifications  (References  2 and  3) , work  by  Renner 
(Reference  4),  and  measurements  made  by  TSC  in  the  Boston  area. 

The  simple  drive  cycles  used  in  this  analysis,  assumed  rep- 
etitive over  any  number  of  stops,  are  considered  to  represent 
the  upper  and  lower  bounds  of  urban  bus  driving  cycles  when  con- 
sidered from  an  energy  point  of  view.  During  actual  operation, 
buses  are  subjected  to  varying  accelerations  and  cruising  vel- 
ocities within  any  one  driving  cycle  and  to  varying  numbers  of 
stops  per  mile.  However,  in  order  to  determine  the  performance 
behavior  and  the  comparisons  of  different  power  drive  subsystems, 
the  use  of  simple  repetitive  drive  cycles  provides  sufficient 
accuracy . 

2.2  VEHICLE  SIMULATION  MODEL 

To  simulate  the  operation  of  a transit  bus  over  a specified 
driving  cycle  for  fuel  consumption  and  emissions  determinations, 
it  is  necessary  to; 

a)  Determine  the  sequence  of  engine  operating  conditions 
for  each  moment  during  the  driving  cycle. 
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ITEM 

NOMENCLATURE 

UPPER 

BOUND 

LOWER 

BOUND 

(A) 

ACCELERATION  MODE 
(CONSTANT  ACCELERATION) 

3.5  mphps 

2.0  mphps 

(C) 

: CRUISE  MODE 

1 (CONSTANT  VELOCITY) 

35  mph 

20  mph 

(D) 

DECELERATION  MODE 
(CONSTANT  DECELERATION) 

3.4  mphps 

2.5  mphps 

(D\V) 

DV/ELL  TIME  AT  DUS  STOP 

20  seconds 

10  seconds 

FIGURE  1.  URBAN  TRANSIT  BUS  DRIVING  CYCLE  LIMITS 
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b)  Determine  from  an  engine  map  the  instantaneous  rate  of 
fuel  flow  for  each  moment. 

c)  Integrate  the  instantaneous  fuel  flow  and  vehicle  vel- 
ocity versus  time  to  obtain  the  total  fuel  consumed 
and  total  distance  traveled. 

d)  Obtain  fuel  economy  by  dividing  the  total  miles  traveled 
by  the  total  number  of  gallons  of  fuel  consumed;  simil- 
arly for  vehicle  emissions. 

A generalized  computational  flow  diagram  which  provides  the 
basis  for  vehicle  simulation  is  illustrated  in  Figure  2. 

A typical  urban  bus  was  selected  for  modeling.  It  is  a 
GMC  model  urban  coach,  equipped  with  an  8V-71'  engine  with  N60 
fuel  injectors,  coupled  to  a Detroit-Allison  VH  torque  converter. 
The  fully  loaded  vehicle  weight,  including  passengers,  driver, 
and  miscellaneous  weight  is  assumed  to  be  30,000  pounds.  A weight 
breakdown  is  given  in  Table  1.  Accessories  mounted  on  the  en- 
gine require  up  to  40  horsepower,  which  was  subtracted  from  the 
total  available  output.  The  engine  power  and  torque  curves  were 
provided  by  the  Detroit  Diesel  Engine  Division  of  GMC.  Torque 
converter  operating  characteristics  were  provided  by  GMC ' s 
Detroit-Allison  Division. 

The  computer  program  was  developed  to  simulate  all  elements 
of  the  power  drive  subsystem  for  the  transit  bus  operation  over 
the  selected  driving  cycle.  The  required  power  at  the  drive 
wheel  was  computed  from  drive  cycle  data,  vehicle  friction,  aero- 
dynamic drag,  inertial  acceleration,  and  rotational  inertias. 

The  corresponding  power  levels  were  computed  throughout  the 
power  drive  based  on  rotational  speeds  and  torques,  and  component 
performance  characteristics. 

The  basic  computer  simulation  program  is  an  adaptation  of 
the  University  of  Wisconsin  computer  program,  described  in  Ref- 
erence 1.  Changes  to  the  program  included  the  subsystem  compo- 
nent hardware  characteristics  and  the  specific  governor-opera- 
tion of  the  torque  converter.  The  governor-operation  schedule 


4 


FIGURE  2.  TRANSIT  BUS  VEHICLE  COMPUTATIONAL  FLOW  MODEL 
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TABLE  1.  TYPICAL  TRANSIT  BUS  WEIGHT  BREAKDOWN 


ITEM 

UNIT 

SUB -TOTAL 

Vehicle  Body 

Shell 
Flooring 
Windows 
Interior  Trim 
Seats 

10,000  lb 

Undercarriage 

3,660  lb 

Suspension 

1040 

Wheels,  Tires 

1360 

Brakes 

1120 

Steering 

140 

Propulsion 

4,215  lb 

Rear  Axle 

1280 

Transmission 
Power  Plant 

500 

Engine 

2000 

Radiator 

100 

Exhaust 

95 

Battery 

95 

Fuel  Tank 

145 

Weight  Empty,  Curb  Weight 

18,275  lb 

Payload 
Fuel ,Oil 

Passengers,  Crew 

9,725  lb 

Misce 1 laneous 

2,000  lb 

Gross  Vehicle  Weight 

30,000  lb 
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relates  the  engine  rpm  with  the  vehicle  velocity.  The  torque 
converter  characteristics  are  illustrated  in  Table  2, 


A simulation  information  flow  diagram  of  the  vehicle  power 
model  is  illustrated  in  Figure  3.  The  nomenclature  shown  in  the 
flow  diagram  is  defined  in  the  computer  program  discussion  given 
in  part  11  Section  3.2  of  this  report.  Basic  to  the  simulation 
model  is  the  breakout  of  the  vehicle  mass.  It  can  be  shown  that 
the  kinetic  energy  of  a moving  body  is  made  up  of  two  components, 
one  due  to  translation  of  the  center  of  mass  and  one  from  rota- 
tion about  the  center  of  mass.  A bus  generally  experiences 
only  translation;  however,  an  integral  part  of  the  vehicle,  the 
power  drive,  consists  of  components  which  rotate  as  a function 
of  the  translational  motion.  Since  the  propulsion  system  must 
supply  the  power  to  produce  the  translational  as  well  as  the  ro- 
tational energy,  it  is  convenient  to  convert  the  kinetic  energy 
of  rotation  to  an  equivalent  kinetic  energy  of  translation. 

This  yields  an  equivalent  mass  (Mpp^)  that  must  be  added  to  the 
accelerated  mass  (M)  of  the  vehicle.  For  preliminary  calcula- 
tions, an  equivalent  mass  value  of  10  percent  can  be  used.  How- 
ever, in  the  computer  the  actual  values  of  the  equivalent  mass 
are  computed  at  every  time  interval. 

The  derivation  of  the  equivalency  is  as  follows: 


(KE)  (EQUIVALENT)  TRANSLATION 


(KE)  ROTATION 


j (MV^)EQ 


i Ir  “wh2 


or 


^EQ  " 


Where  I is  the  sum  of  the  inertias  of  rotating  members  referred 
K 

to  the  drive  wheel  side,  F^j^  is  the  drive  wheel  radius,  and  to 
is  the  rotational  speed. 
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TABLE  2.  TORQUE  CONVERTER  CHARACTERISTICS 


SR 

TQR 

SPEED 

RATIO 

TORQUE 

RATIO 

1 1 n-4 

— -X  10 

0.000 

3.820 

2.5690 

0.100 

3.430 

2.3760 

0.200 

2.950 

2 . 1400 

0.300 

2.430 

1.8210 

0.400 

2 .010 

1.5230 

0.500 

1.650 

1.3200 

0.600 

1.300 

1.1210 

0.610 

1.260 

1.1000 

0.620 

1 . 230 

1 .0780 

0.630 

1 . 190 

1.0500 

0.640 

1.150 

1.0300 

0.650 

1 .120 

1.0150 

0.660 

1 .080 

0.9900 

0.670 

1.040 

0.9750 

0.680 

1.010 

0.9500 

0.690 

0.970 

0.9200 

0.700 

0.930 

0.8838 

0.710 

0.900 

0.8300 

0.720 

0.860 

0.7800 

0.730 

0.820 

0.7600 

SR 


SPEED  RATIO 


^ OUTPUT  SPEED 
INPUT  SPEED 


TQR  = TORQUE  AMPLIFICATION  RATIO  = 


defined  as 
factor,  is 


the  reciprocal 
given  by: 


of  the 


input 


capacity 


1 ^ INPUT  TORQUE 

(INPUT  SPEED) ^ 
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C TORQUE 
; N RPM 

SR  TORQUE  CONVERTER  SPEED  RATIO 

TQR  TORQUE  CONVERTER  TORQUE  RATIO 


FIGURE  3.  INFORMATION  FLOW  IN  VEHICLE  POWER  DRIVE  MODEL 
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2.3  POWER  DRIVE  COMPONENTS  CHAPJVCTERI ZAT  ION 


The  mechanical  component  arrangement  shown  in  Figure  4 
consists  of; 

Drive  Wheel  Speed  of  Rotation 

Rotational  speed  (T90N)  of  drive  wheels  in  terms  of  ve- 
hicle velocity  (mph) : 

T90N  - [ (5280/60) /(  2uR^^P  ]V 
Drive  Wheel  Torque: 

T90C  = . R^^j^ 

where  R^j^  = drive  wheel  rolling  radius  in  feet 
Frp  = road  load 

= inertial  load  + aerodynamic  load  + 
road  resistance  load- 


Drive  Shaft  Speed  and  Torque 

Drive  shaft  speed  = T91N  = 
Drive  shaft  torque  = T91C  = 
where  RAR  = rear  axle  ratio 


RA 


= rear  axle  efficiency^ 


(RAR)  (TOON) 
T90C/(RAR)  (Hj^^), 


Input  to  Transmission 

Shaft  speed  = TAON  = (TRGR)  ( T91N) 

Shaft  torque  - TAOC  = T91C/(TRGR)  (n-pj^), 

where  TRGR  is  the  transmission  gear  ratio  (variable) 
and  TR  nTR  the  transmission  efficiency. 

Torque  Converter 

Input  speed  = PAON  = (SR)  (TAON) 

Input  torque  = PAOC  = (TQR)  (TAOC) 
where  SR  is  the  torque  converter  speed  ratio 
and  TQR  is  the  torque  ratio. 

The  torque  PAOC  is  referred  to  the  engine  flywheel,  which 
is  the  energy  storage  device.  The  flywheel  absorbs  transients 
in  the  engine  rotational  speeds  as  the  velocity  of  the  bus  varies 
throughout  the  driving  cycle. 


10 


ENGINE  TORQUE 
ACCESS.  CONVERTOR 


DRIVE 

WHEEL 


ACCESSORY 

TORQUE 

VS 

ENGINE  SPEED 


FUEL  RATE,  ENGINE 
VACUUM,  ENGINE  TORQUE 
VS 

ENGINE  SPEED  a 
THROTTLE  POSITION 


~E 

ENGINE 
•^E’  "^E’  ^E 

— 

— L 

L 

CO,  HC  AND  NO^  EMISSIONS 
VS 

BMEP  a ENGINE  SPEED 


TORQUE  CONVERTER  INPUT 
(FLYWHEEL  TORQUE) 

Tr=Ne^/k2 


TORQUE  CONVERTER  OUTPUT 
Tco=(TR)(Te) 

TORQUE  RATIO 
VS 

SPEED  RATIO  . 


TRANSMISSION  GEAR 
EFFICIENCY 
VS 

ENGINE  SPEED  a 
DRIVESHAFT  TORQUE 
DRIVESHAFT  SPEED 
VS 

ENGINE  VACUUM  a 
GEAR  SHIFTING 


REAR  AXLE  EFFICIENCY 
VS 

DRIVESHAFT  TORQUE 


TRACTIVE  EFFORT  = 
FUNCTION  OF 

C DRAG  FORCES 
I TIRE  FRICTION  FORCES 
' VEHICLE  INERTIA  FORCES 


) 


BRAKING  FORCES 


FIGURE  4.  MOTOR  VEHICLE  POWER  DRIVE  SYSTEM 
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2.4 


DIESEL  URBAN  BUS  PERFORMANCE  CALCULATIONS 


A large  number  of  performance  calculations  have  been  made 
using  the  simulation  program.  They  correlate  well  when  compared 
with  actual  urban  bus  data.  Only  in  a few  cases,  however,  are 
the  data  sufficiently  characterized  to  make  highly  accurate  com- 
parisons. Well -measured  bus  performance  and  fuel  consumption 
data  over  accurately  determined  driving  cycles  are  needed. 

Figure  5 shows  the  variation  of  fuel  consumption  with  varia- 
tion in  the  number  of  stops  per  mile  for  the  lower  bound  driving 
cycle  of  Figure  1.  Included  in  this  figure  are  data  points  from 
high-confidence  measurements,  taken  from  equivalent  driving  cy- 
cles . 


Figure  6 gives  a plot  of  data  obtained  in  fuel  economy 
tests  of  a Flexible  (ROHR)  Transit  Bus,  driven  on  a test  track, 
following  Driving  Cycle  B (Reference  6)  which  is  characterized  by: 


acceleration 
cruise  speed 
deceleration 
dwell  time 


3.0  mph/sec 
30  mph 
3.4  mph/sec 
16  sec 


A1 

so  shown 

cul 

ated 

by  the 

dr  i 

ving 

cycle . 

the 

tes 

t values 

percent 

• 

in  Figure  6 is 
Diesel  Urban  Bus 
The  correlation 
is  considered  to 


a set  of  fuel  e 
Simulation  Pro 
of  the  calcula 
be  quite  good 


conomy  points  cal- 
gram  for  the  same 
ted  values  with 
, within  a few 
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Ol 


3 

(n 

2 

O 

o 


LU 

:d 


u.  2 


I - 


COMPUTER 

SIMULATION 


CONVENTIONAL 
(BASELINE) 
TRANSIT  BUS 
PERFORMANCE 

GW 

30,000  lbs 

V(CRUISE) 

20  mph 

ACCEL 

2 mph  /sec 

DECEL 

5 ft/scc  2 

DWELL  TIME  = 

10  seconds 

□ -DATA  FROM  "CALIFORNIA  STEAM 
BUS  PROJECT  TECHNICAL 
EVALUATION" 

R. A.  RENNER,  IRT  REPT"30|-R 


□ 


X- DATA  FROM  NYCTA 

APPROX.  NUMBER  OF  BUS  STOPS  = 7.2 

AVERAGE  FUEL  MILEAGE  = 3.5  mpg 
(VARIATION  FROM  2.2  TO  4.6  mpg) 


J ^ I I L 

2 4 6 8 10 

NUMBER  OF  BUS  STOPS  PER  MILE 


FIGURE  5.  TRANSIT  BUS  PERFORMANCE 
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STOPS/MILE 

FIGURE  6.  FLEXIBLE  870  BUS  PERFORMANCE  TEST 
RESULTS  - DRIVING  CYCLE  B 
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3.  MODEL  OPERATION 


3.1  DESCRIPTION  OF  COMPUTER  SIMULATION  MODEL 

The  diesel  bus  performance  simulation  model  predicts  the 
performance  of  vehicles  with  various  power  plants  over  any  de- 
sired set  of  segments  of  a driving  cycle.  Each  driving  cycle 
segment  has  a specified  length  and  grade,  a dwell  time  or  ve- 
hicle idling  time  (to  simulate  passenger  loading  and  unloading), 
and  a desired  vehicle  cruise  speed.  Actual  vehicle  performance 
is  determined  by  solving  Newton's  equations  of  motion  at  regular 
time  intervals  subject  to  the  constraints  of  engine  and  vehicle 
characteristics . 

Output  data  include  torque  and  horsepower,  at  the  engine 
and  at  the  tires'  interfaces  with  the  road;  velocity  and  accel- 
eration during  each  time  period;  engine  speed;  and  fuel  consump- 
tion. These  data  can  be  plotted  as  well  as  printed,  permitting 
quick  cros s - comparisons  among  variables.  Characteristics  of  the 
power  plant  and  drive  train  are  modeled  in  a series  of  subrou- 
tines; fuel  consumption  rate  is  calculated  in  another  subroutine. 

The  simulation  program  receives  input  data,  transmits  out- 
put data,  and  initializes  appropriate  variables  at  the  beginning 
of  each  driving  cycle  segment.  It  also  includes  all  routing 
logic  for  determining  whether  the  vehicle  should  be  accelerating, 
decelerating,  or  cruising.  A vehicle  dynamics  subroutine  con- 
tains an  integration  algorithm  to  solve  the  equations  of  motion. 

A subroutine  is  provided  to  calculate  fuel  consumption  when  the 
vehicle  is  moving,  and  when  it  is  stationary.  A print  subroutine 
handles  output  printing,  and  a plot  subroutine  handles  output 
plotting  using  the  standard  software  provided  by  CalComp. 

An  input  subroutine  specifies  the  subject  vehicle,  driving 
cycle  configuration,  and  route  terrain  profile.  The  inputs  are 
vehicle  data,  engine  performance  data,  power  drive  characteris- 
tics, acceleration,  cruising  speed,  deceleration,  vehicle  idle 
time  at  bus  stops,  number  of  bus  stops  per  mile,  grade  profile 
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along  route,  head  or  tail  winds,  and  adhesion  characteristics 
between  tires  and  road. 


Cal 

culations  are 

perfo 

rmed  to 

generate  the 

following  com- 

ponents 

of  force  acti 

ng  on 

the  veh 

icle : 

a) 

aerodynamic 

drag. 

b) 

gravity. 

c) 

wheel  drag. 

and 

d) 

vehicle  thrust. 

The 

method  used 

to  cal 

culate 

these  factors 

depends  upon  the 

operational  mode  (acceleration,  cruise,  or  deceleration)  and 
the  gear  number  in  which  the  vehicle  is  presently  operating. 
Thrust  is  constrained  by  the  limits  o£  tire-ground  adhesion. 

The  model  is  written  in  the  FORTRAN  IV  language  and  has  been 
run.  A model  663  CalComp  plotter  and  associated  software  pro- 
vide the  graphic  output.  Since  the  model  accumulates  performance 
data  from  all  driving  cycle  segments  as  they  are  computed,  and 
prints  and  plots  them  at  the  end  of  a run;  storage  requirements 
are  a function  of  the  number  of  segments  handled  in  a run. 

In  the  program  all  dynamic  variables  are  local  or  passed 
as  parameters  between  the  various  subroutines.  All  the  constants 
and  tables  are  placed  in  labeled  common  files  and  accessed  from 
there . 

Following  is  a glossary  of  terms,  constants,  variables, 
tables,  and  arrays  used  in  the  program. 


3.1.1  Glossary  of  Symbols 


SYMBOL  NAME 


DESCRIPTION 


FIG.  3 ACLOAD(IO) 

T^  ACTORQ 

ATORGS(60) 

AVIB 

P AVIM 


ACCESSORY  LOAD  AS  A FUNCTION  OF 
ENGINE  SPEED 

ACCESSORY  LOAD 

ENC  TORS  RECORDED  SINCE  LAST 
GENERAL  OUTPUT 

AIR  PRESSURE  (PSI) 

AIR  DENSITY  (LB/FT**3) 
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SYMBOL 

NAME 

DESCRIPTION 

AVIR 

AIR  TEMPERATURE  (°F) 

AVIO 

GRADE  ANGLE  (RAD) 

AVIS 

WIND  SPEED  (MPH) 

Tci 

BAOC 

CONVERTER  INPUT  TORQUE 

Nci 

BAON 

CONVERTER  INPUT  SPEED  (RPM) 

®s 

BS 

BRAKE  SETTING 

FC 

BSFC 

BRAKE  SPECIFIC  FUEL  CONSUMPTION 

COMM(26) 

COMMENT  CARDS  FOR  HEADING  TITLES 

AT 

DELTA 

INTEGRATION  TIME  STEP  (SEC) 

At 

BELT 

LEAD  TIME  FOR  NEXT  CYCLE  VELOCITY 
IN  AUTO  DRIVER 

DT 

TIME  OF  ONE  CLOCK  PULSE 

EPS 

USED  TO  TEST  FOR  CONSTANT  ENGINE 
SPEED 

Ne 

ESDOT 

ENGINE  ACCELERATION  (RPM/SEC) 

ESDOTO 

PREVIOUS  VALUE  OF  ENGINE  ACCELERATION 

ESPEED(60) 

ENG  SPDS  RECORDED  SINCE  PREVIOUS 
GENERAL  OUTPUT 

FTIME(60) 

TIMES  AT  WHICH  ESPEED  AND  ATORGS 
ARE  SAVED 

FW 

FUELWT 

WEIGHT  OF  ONE  GALLON  OF  FUEL 

TFC 

FUELE 

CUMULATIVE  FUEL  CONSUMED  (LBS) 

GRl 

RATIO  OF  FIRST  GEAR 

HRPSEC 

HOURS  PER  SECOND 

LBCIGI  (10) 

INDEX  FOR  ASSIGNING  GEAR  EFFICIENCY 
CALCULATIONS 

T 

P 

1 CLOCK 

CUMULATIVE  NUMBER  OF  CLOCK  PULSES 

ICLOKO 

TIME  AT  PREVIOUS  OUTPUT  OF  VARIABLES 

T 

PO 

ICLOKl 

ICLOCK  AT  COMPLETION  OF  LAST 
INTEGRATION 

ICYCLE 

NUMBER  OF  TIMES  THE  PROGRAM  HAS 
ITERATED 

ICYEND 

END  OF  DRIVING  CYCLE  INDICATOR 

I GEAR 

GEAR  SHIFT  INDICATOR 

INDIC 

OUTPUT  INDICATOR 
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SYMBOL 


HP 


NAME 

DESCRIPTION 

I OUT 

NUMBER  OF  CLOCK  PULSES  ALLOWED 
BETWEEN  OUTPUTS 

IPAOF(18, 20) 

FUEL  CONSUME  AS  FUNCTION  OF  ENG 
SPD  AND  LINE  NO 

IPDX(20 ,20) 

JOINT  PROBABILITY  DENSITY  DIS- 
TRIBUTION 

ISHIFT 

ICLOCK  AT  START  OF  LAST  SHIFT 

ISPEED(20) 

INT  STORAGE  FOR  PRINTOUT  OF  SPD 
FOR  JNT  PROS  DEN 

ITICYC 

ICLOCK  AT  START  OF  DRIVING  CYCLE 

IVEPA(685) 

AUTO  DRIVING  CYCLE  VELOCITIES  AT 
I SEC  INTERVALS 

LOADEQ 

ROAD  LOAD  CALCULATION  CONTROL 

LOCK 

INDICATES  IF  CONVERTER  IS  LOCKED  UP 

MAP1(55,17) 

STEADY  STATE  ENG  TRQ  AS  FUNCT  OF 
THROTTLE  AND  ENG  SPD 

MAPS (17, 17) 

FUEL  RATE  AS  A FUNCTION  OF  ENGINE 
SPEED  AND  ENGINE  TORQUE 

MAXLIN 

MAXIMUM  NUMBER  OF  LINES  SPECIFIED 
PER  PAGE 

NDIM(2) 

NUMBER  OF  VARIABLES  USED  IN  JOINT 
PROB  DENSITY 

NFUEL 

NUMBER  OF  ELEMENTS  IN  FUEL  ARRAY 

NGEAR 

NUMBER  OF  TRANSMISSION  GEAR  RATIOS 

NGl 

CURRENT  GEAR  NUMBER 

NGIOLD 

GEAR  AT  PREVIOUS  ITERATION 

NGT(2) 

NUMBER  OF  SAMPLES  WHICH  EXCEED 
VMAX(1  AND  2) 

NLINE 

NUMBER  OF  LINES  ON  CURRENT  PAGE 

NLT(2) 

NUMBER  OF  SAMPLES  LESS  THAN  VMIN 
(1  AND  2) 

NREC 

OUTPUT  RECORD  NUMBER 

NRUN 

RUN  NUMBER 

NVEPA 

NUMBER  OF  VELOCITIES  SPECIFIED  IN 
DRIVING  GYCLE 

NVOLT(15) 

VOLTAGES  FOR  DACS  AND  ADCS 

OBHP 

OBSERVED  BRAKE  HORSEPOWER 

PAOC 

ENGINE  SHAFT  TORQUE  (ALSO  REFERRED 
TO  AS  FLYWHEEL  TRQ) 
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SYMBOL 

NAME 

DESCRIPTION 

PAOFR 

FUEL  CONSUMPTION  RATE  (LB/HR) 

PAOFRO 

PREVIOUS  VALUE  OF  PAOFR 

Ne 

PAON 

ENGINE  SPEED  (RMP) 

RIE 

ENGINE  INERTIA  (LBM  FT  SQD) 

RIEINV 

INVERSE  OF  ENGINE  INERTIA 

SCALEF 

ENGINE  SIZE  SCALE  FACTOR 

'^SS 

SSTORQ 

STEADY  STATE  ENGINE  TORQUE 

SR 

TAllSR 

SPEED  RATIO 

1/Kj 

TAI3IK 

INVERSE  SQUARE  OF  SIZE  FACTOR 

TAI3KI 

SIZE  FACTOR 

TR 

TAOiTR 

CONVERTER  TORQUE  RATIO 

^CO 

TAOC 

CONVERTER  OUTPUT  TORQUE 

^CO 

TAON 

CONVERTER  OUTPUT  SPEED 

TBC1G1(10 ,4) 

POLYNOMIAL  COEFFICIENTS  FOR  CAL- 
CULATING GEAR  EFFIEICNEY 

TBCIGR(IO) 

GEAR  RATIOS 

TBDTH 

MINIMUM  TIME  ALLOWED  BETWEEN  SHIFTS 

TBDTMS 

LENGTH  OF  TIME  FOR  SHIFTING 

"tr 

TBOIEF 

TRANSMISSION  EFFICIENCY 

GI 

TBOIGI 

TRANSMISSION  GEAR  INDEX 

GRtr 

TBOIGR 

TRANSMISSION  GEAR  RATIO 

TCEFF 

TORQUE  CONVERTER  EFFICIENCY 

TIDLE 

THROTTLE  IDLE  SETTING 

T 

TIME 

TIME  FROM  START  OF  DRIVING 
CYCLE  (SEC) 

TIMAVG(5) 

TIMER  AVERAGES 

TIMLEN(5) 

TIMER  LENGTHS 

TIMMAX(5) 

TIMER  MAX I MUMS 

TMAS 

MAXIMUM  ENGINE  TORQUE 

TORO 

RATIO  OF  STEADY  STATE  TORQUE  TO 
MAXIMUM  TORQUE 

T 

S 

TS 

THROTTLE  SETTING 
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SYMBOL  NAME 


DESCRIPTION 


JcT 

Jtr 

^TW 


DS 


U 


GR 


RA 


GR 


RA 


DS 


TS 


RA 


RA 


V. 

1 


F 


D 


C 


D 


C 


F 


y 


TVIJCT 

MOMENT  OF  INERTIA  OF  TORQUE 
CONVERTER  TURBINE 

TVIJRA 

MOMENT  OF  INERTIA  OF  REAR  AXLE  GEARS 

TVIJTR 

MOMENT  OF  INERTIA  OF  TRANSMISSION 
GEARS 

TVIJTW 

MOMENT  OF  INERTIA  OF  TIRES  AND  WHEELS 

TVICRL(I6) 

ROAD  LOAD  TORQUE  AT  DRIVESHAFT 

TVIMJ 

TOTAL  MOMENT  OF  INERTIA  OF  DRIVETRAIN 

T8DN 

UNCORRECTED  DRIVE  SHAFT  SPEED 

T81IGR 

NOMINAL  REAR  AXLE  RATIO 

T8INV(II) 

DRIVESHAFT  SPEED  AS  A FUNCTION  OF 
VEHICLE  SPEED 

T911GR 

EFFECTIVE  REAR  AXLE  RATIO 

T9IC 

DRIVESHAFT  TORQUE 

T9IN 

DRIVESHAFT  SPEED 

T90C 

REAR  AXLE  TORQUE 

T9I1 

REAR  AXLE  EFFICIENCY 

VAL(2) 

VALUES  OF  VARIABLES  FOR  CALL 
TO  PRBDEN 

VAR (10) 

EXTRA  SPACE  FOR  VARIABLES 

VEPA 

NEXT  DRIVING  CYCLE  VELOCITY 

VINT(2) 

INTERVAL  SIZE  FOR  JOINT 
PROBABILITY  DENSITY 

VMAX(2) 

PROBABILITY  DEN 

MAXIMUM  VALUES  FOR  JOINT 
PROBABILITY  DENSITY 

V^1IN(2) 

MINIMUM  VALUES  FOR  JOINT 
PROBABILITY  DENSITY 

VVDF 

SUM  OF  DRAG  FORCES  AND  FRICTION  (LBF) 

WDM  I 

EQUIVALENT  MASS  OF  VEHICLE  (SLUGS) 

VVIICD 

DRAG  COEFFICIENT 

VVIICF 

TIRE  COULOMB  FRICTION  COEFFICIENT 

VVIIRF 

ROLLING  FRICTION  COEFFICIENT 
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SYMBOL 

NAME 

DESCRIPTION 

VVI2BR 

BRAKE  CONSTANT  (USUALLY  STATIC 
WEIGHT  OF  VEHICLE) 

^MAX 

VVIAMX 

MAX.  ACCEL.  (G'S)  BASED  ON  MAX 
COEFF  OF  TIRE  FRICTION 

^MAXS 

WIAS 

MAX  ACCEL. (G’S)  BASED  ON  SLIDING 
COEFF  OF  TIRE  FRICTION 

VVIDRR 

TIRE  RADIUS 

WIFUM 

MAXIMUM  COEFFICIENT  OF  TIRE 
FRICTION 

£ 

s 

WIFUS 

SLIDING  COEFFICIENT  OF  TIRE 
FRICTION 

Ap 

WILFR 

FRONTAL  AREA  (SQ  FR) 

M 

VVIM 

VEHICLE  MASS  (LBM) 

^DR 

VVIMDR 

MASS  ON  DRIVE  SHEELS 

Mi 

VVIMI 

INERTIAL  MASS  OF  VEHICLE 

H 

WISH 

HEIGHT  OF  VEHICLE  CENTER  OF 
GRAVITY  (IN) 

WB 

VVISWS 

WHEEL  BASE  (IN) 

A 

VVOA 

VEHICLE  ACCELERATION  (FT/SEC/SEC) 

VVOAO 

PREVIOUS  VALUE  OF  VVOA 

D 

VVOD 

VEHICLE  DISTANCE  TRAVELED  (MILES) 

V 

VVOS 

VEHICLE  SPEED  (MPH) 

WO  SO 

PREVIOUS  VALUE  OF  WOS 

WHLOLD 

PREVIOUS  VALUE  OF  WHEEL  SLIP 

INDICATOR 

WHLSLP 

WHEEL  SLIP  INDICATOR 

X(225) 

DUMMY  ARRAY  FOR  TAPE  OR  DISK  OUTPUT 
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3.1.2  Glossary  of  Constants 


CONSTANT 

MEANING 

AVIB 

AIR  PRESSURE  (psi) 

AVIM 

AIR  DENSITY  (LB/FT773) 

AVIR 

AIR  TEMPERATURE  (F) 

DT 

TIME  OF  ONE  CLOCK  PULSE 

EPS 

USED  TO  TEST  FOR  CONSTANT  ENGINE  SPEED 

FUELWT 

WEIGHT  OF  ONE  GALLON  OF  FUEL 

FRl 

RATIO  OF  FIRST  GEAR 

HRPSEC 

HOURS  PER  SECOND 

I OUT 

NUMBER  OF  CLOCK  PULSES  ALLOWED  BETWEEN  OUTPUTS 

IPRNT 

PRINT  CONTROL 

LOADEQ 

ROAD  LOAD  CALCULATION  CONTROL 

MAXLIN 

MAXIMUM  NUMBER  OF  LINES  SPECIFIED  PER  PAGE 

NGEAR 

NUMBER  OF  TRANSMISSION  GEAR  RATIOS 

NVEPA 

NUMBER  OF  VELOCITIES  SPECIFIED  IN  DRIVING  CYCLE 

RIE 

ENGINE  INERTIA  (LBM-FT  2) 

RIEINV 

INVERSE  OF  ENGINE  INERTIA 

SCALEF 

ENGINE  SIZE  SCALE  FACTOR 

T8I1GR 

NOMINAL  REAR  AXLE  RATIO 

TBDTH 

MINIMUM  TIME  ALLOWED  BETWEEN  SHIFTS 

TBDTMS 

LENGTH  OF  TIME  FOR  SHIFTING 

TIDLE 

THROTTLE  IDLE  SETTING 

TMAX 

MAXIMUM  ENGINE  TORQUE 

TVIJCT 

MOMENT  OF  INERTIA  OF  TORQUE  CONVERTER  TURBINE 

TVIJRA 

MOMENT  OF  INERTIA  OF  REAR  AXLE  GEARS 

TVIJTR 

MOMENT  OF  INERTIA  OF  TRANSMISSION  GEARS 

TVIJTW 

MOMENT  OF  INERTIA  OF  TIRES  AND  WHEELS 

VACMAX 

MAXIMUM  MANIFOLD  VACUUM  (IN  OF  HG) 

VVIICD 

DRAG  COEFFICIENT 

VVIICF 

TIRE  COULOMB  FRICTION  COEFFICIENT 

VVllRF 

ROLLING  FRICTION  COEFFICIENT 

VV12BR 

BRAKE  CONSTANT  (USUALLY  STATIC  WEIGHT  OF  VEHICLE) 

VVIAMX 

MAX  ACCEL  (G'S)  BASED  ON  MAX  COEFF  OF  TIRE 
FRICTION 

WIAS 

MAX  ACCEL  (G'S)  BASED  ON  SLIDING  COEFF  OF  TIRE 
FRICTION 
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CONSTANT 


MEANING 


WIDRR 

WIFUM 

VVIFUS 

WILFR 

WIM 

VVIMDR 

WISH 

VVISWB 

3.1.3  Glos  s 

VARIABLE 

ACTORQ 

AVIO 

AVIS 

BS 

BELT 

DELTA 

EMISE 

EMISF 

ESDOT 

ESDOTO 

FUELE 

ICLOCK 

ICLOKO 

ICLOKl 

I CYCLE 

ICYEND 

I GEAR 

I GO 

INDIC 

ISHIFT 

ITICYC 

NGI 

NLINE 


TIRE  RADIUS 

MAXIMUM  COEFFICIENT  OF  TIRE  FRICTION 
SLIDING  COEFFICIENT  OF  TIRE  FRICTION 
FRONTAL  AREA  (SQ  FT) 

VEHICLE  MASS  (LBM) 

MASS  ON  DRIVE  WHEELS 

HEIGHT  OF  VEHICLE  CENTER  OF  GRAVITY  (IN) 
WHEEL  BASE  (IN) 


ary  of  Dynamic  Variables 
MEANING 

ACCESSORY  LOAD 
GRADE  ANGLE  (RAD) 

WIND  SPEED  (MPH) 

BRAKE  SETTING 

LEAD  TIME  FOR  NEXT  CYCLE  VELOCITY  IN  AUTO  DRIVER 
INTEGRATION  TIME  STEP  (SEC) 

EMISSIONS  (NOT  USED) 

EMISSION  RATE  (NOT  USED) 

ENGINE  ACCELERATION  (RPM/SEC) 

PREVIOUS  VALUE  OF  ENGINE  ACCELERATION 
CUMULATIVE  FUEL  CONSUMED  (LBS) 

CUMULATIVE  NUMBER  OF  CLOCK  PULSES 

TIME  AT  PREVIOUS  OUTPUT  OF  VARIABLES 

ICLOCK  AT  COMPLETION  OF  LAST  INTEGRATION 

NUMBER  OF  TIMES  THE  PROGRAM  HAS  ITERATED 

END  OF  DRIVING  CYCLE  INDICATOR 

GEAR  SHIFT  INDICATOR 

GO  SWITCH  INDICATOR 

OUTPUT  INDICATOR 

ICLOCK  AT  START  OF  LAST  SHIFT 

ICLOCK  AT  START  OF  DRIVING  CYCLE 

CURRENT  GEAR  NUMBER 

NUMBER  OF  LINES  ON  CURRENT  PAGE 
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VARIABLE 

MEANING 

NFUEL 

NUMBER  OF  ELEMENTS  IN  FUEL  ARRAY 

NGIOLD 

GEAR  AT  PREVIOUS  ITERATION 

NREC 

OUTPUT  REGORD  NUMBER 

NRUN 

RUN  NUMBER 

OBHP 

OBSERVED  BRAKE  HORSEPOWER 

PAOC 

ENGINE  SHAFT  TORQUE  (ALSO  REFERRED  TO  AS  FLYWHEEL 
TRQ) 

PAOFT 

FUEL  GONSUMPTION  RATE  (LB/HR) 

P AO FRO 

PREVIOUS  VALUE  OF  PAOFT 

PAON 

ENGINE  SPEED  (RMP) 

PPOB 

ENGINE  VAGUUM  (IN.  OF  HG.) 

SSTORQ 

STEADY  STATE  TORQUE 

ISDN 

UNGORREGTED  DRIVE  SHAFT  SPEED 

T9I1GR 

EFFEGTIVE  REAR  AXLE  RATIO 

T9IC 

DRIVESHAFT  TORQUE 

T9IN 

DRIVESHAFT  SPEED 

T90C 

REAR  AXLE  TORQUE 

T90N 

DRIVESHAFT  SPEED 

TAIISR 

SPEED  RATIO 

TAI3IK 

INVERSE  SQUARE  OF  SIZE  FACTOR 

TAI3KI 

SIZE  FACTOR 

TAOITR 

CONVERTER  TORQUE  RATIO 

TAOG 

CONVERTER  OUTPUT  TORQUE 

TAON 

CONVERTER  OUTPUT  SPEED 

TBOIEF 

TRANSMISSION  EFFICIENTY 

TBOIGI 

TRANSMISSION  GEAR  INDEX 

TBOIGR 

TRANSMISSION  GEAR  RATIO 

TIME 

TIME  FROM  START  OF  DRIVING  CYCLE  (SEC) 

TORQ 

RATIO  OF  STEADY  STATE  TORQUE  TO  MAXIMUM  TORQUE 

TS 

THROTTLE  SETTLE 

TVIMJ 

TOTAL  MOMENT  OF  INERTIA  OF  DRIVETRAIN 

VEPA 

NEXT  DRIVING  CYCLE  VELOCITY 

VVDF 

SUM  OF  DRAG  FORCES  AND  FRICTION  (LBF) 

WDM  I 

EQUIVALENT  MASS  OF  VEHICLE  (SLUGS) 

VVOA 

VEHICLE  ACCELERATION  (FT/SEC/SEC) 
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VARIABLE 


MEANING 


VVOAO 

PREVIOUS  VALUE  OF  VVOA 

VVOD 

VEHICLE  DISTANCE  TRAVELED  (MILES) 

VVOS 

VEHICLE  SPEED  (MPH) 

WOSO 

PREVIOUS  VALUE  OF  VVOS 

WHLOLD 

PREVIOUS  VALUE  OF  WHEEL  SLIP  INDICATOR 

WHLSLP 

WHEEL  SLIP  INDICATOR 

3.1.4  Glossary  o£  Logic  Variables 


INISAT 

0 - INITIALIZATION  OF  ENGINE  SPEED  COMPLETE. 

CAR  IN  NEUTRAL. 

1 - ENGINE  BEING  INITIALIZED. 

CAR  IN  NEUTRAL. 

I READY 

0 - ENGINE  NOT  IN  STEADY  STATE. 

1 - GO  LIGHT  TURNED  ON. 

3.1.5  Glossary  of  Tables 


TABLE 

MEANING 

ACLOAD(IO) 

ACCESSORY  LOAD  AS  A FUNCTION  OF  ENGINE  SPEED 

COMM(26) 

COMMENT  CARDS  FOR  HEADING  TITLES 

IBCIGI (10) 

INDEX  FOR  ASSIGNING  GEAR  EFFICIENCY  CALCULATIONS 

IVEPA(685) 

MAP1(10,17) 

AUTO  DRIVING  CYCLE  VELOCITIES  AT  1 SEC  INTERVALS 

STEADY  STATE  TORQUE  AS  A FUNCTION  OF  THROTTLE 
AND  ENGINE  SPD 

MAP  3 

FUEL  CONSUMPTION  AS  A FUNCTION  OF  TORQUE  AND 
ENGINE  SPEED 

NDIM(2) 

NUMBER  OF  VARIABLES  USED  IN  JOINT  PROB  DENSITY 

T8INV(11) 

DRIVE  SHAFT  SPEED  AS  A FUNCTION  OF  VEHICLE  SPEED 

TAI3KP(20) 

SIZE  FACTOR  AS  A FUNCTION  OF  SPEED  RATIO  (NOT 
USED) 

TBC1GI910,4) 

POLYNOMIAL  COEFFICIENTS  FOR  CALCULATING  GEAR 
EFFICIENCY 

TBCIGR(IO) 

GEAR  RATIOS 

TV1CRL(16) 

ROAD  LOAD  TORQUE  AT  DRIVESHAFT 

VINT(2) 

INTERVAL  SIZE  FOR  JOINT  PROBABILITY  DENSITY 

VMAX ( 2 ) 

MAXIMUM  VALUES  FOR  JOINT  PROBABILITY  DENSITY 

VMIN(2) 

MINIMUM  VALUES  FOR  JOINT  PROBABILITY  DENSITY 
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3.1.6  Glossary  of  Arrays 


ARRAY 

MEANING 

ATORQS(60) 

ENG  TRQS  RECORDED  SINCE  LAST  GENERAL  OUTPUT 

ESPEED(60) 

ENG  SPDS  RECORDED  SINCE  PREVIOUS  GENERAL  OUTPUT 

FTIME(60) 

TIMES  AT  WHICH  ESPEED  AND  ATORQS  ARE  SAVED 

IPDX(20,20) 

JOINT  PROBABILITY  DENSITY  DISTRIBUTION 

ISPEED(20) 

INT  STORAGE  FOR  PRINTOUT  OF  SPD  FOR  JNT  PROB  DEN 

NGT(2) 

NLT(2) 

NUMBER  OF  SAMPLES  WHICH  EXCEEDED  VMAX(1  AND  2) 
NUMBER  OF  SAMPLES  LESS  THAN  VMIN  (1  AND  2) 

NV0LT(15) 

VOLTAGES  FOR  DAGS  AND  ADCS 

TIMAVG(5) 

TIMER  AVERAGES 

TIMLEN(5) 

TIMER  LENGTHS 

TIMMAX(5) 

TIMER  MAX I MUMS 

VAL(2) 

VALUES  OF  VARIABLES  FOR  CALL  TO  JPBDEN 

VAR(IO) 

EXTRA  SPACE  FOR  VARIABLES 

X(225) 

DUMMY  ARRAY  FOR  TAPE  OR  DISK  OUTPUT 

AWAY (20, 3) 

SPEED  RATIO,  TORQUE  RATIO  AND  INVERSE  SIZE  FACTOR 
FOR  TORQUE  CONVERTER 
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3.2  BUS  SIMULATION  PROGRAM  LISTING 


The  bus  simulation  program,  Simula,  is  listed  below. 


BUS  Gl“JLATlQ-xl  PROGRAM clL 


1 

c. 

* »*•»*  Slf^'OtA  ***# 

S:J3"'LM,jT  I NE  STELLA 

3 

u 

L***«  cJb  ICA1  :0-,S  0?NE  ">Y  UiCMARD  HubSQN 

/ENGI'-i/SCAL.F.r^TIOLEiEVSiTS 

6 

NET  ( 2 ) ^ \GT  ( 2 ) 

ce’^'^eM  /uec-<i/  ACCLecK/ oeclock 

/ 

/uoc^"2/  /-cc^tis 

C 1KE‘:SI?N  MAPI  (55^7  ) /.■■‘,AP3(  17i  17) 

c\  o ; 

1 1 

1 1 

CGT'EM  77=IaP3/  ‘'APi,MAP3 

CSM‘-*r;.\j  /PR\iT/  lejT,  lPR\'T,LOADEQjMAXLIN 

i 1 
12 

ClJMlPjr.;  /STEADY/  EPS 
COM-C'.v  /TIMET/  DT 

i J 
1 ^ 

CT'lEsibN  I pLv  ( po, '.Q  ) 

CG'-P'-CN  IPDX 

H. 

L'!\‘  TEST  ( 3 ) j F T 1 ME  ( 6 0 ) / E SPEE  D ( 6 0 ) > A T 0 R roS  ( E)C  ) 

C0M“3nj  DRS-iPl  1A0)^RAXhP(  lAO) 

17 

1 

l?0)/ACE-iP(I-TO)/rLYHP(  lAorrrONMPI  litO) 

coMr'c-fj  T r-'"Av  ( s ) , T rM„.r:s  ( ? ) , t I'-'avg  ( s ) , var  ( p ) 

20 

C-X'.'-  XT  A 'C  ( lAO  ) ^ X'  1 ;M  C ( 1 AO  ) / XTSOC  ( 1 '*0  ) > gear  ( 1 AO) 

CO'1M0\  XT  T'E  ( 1 AC  ) / XSSTOR  ( 1 AO)  , XPA6C  ( 1 'lO  ) , XAr  rnR  ( 1 AO  ) 

21 

22 

'~C  •'uACLD'TM  C.'J FftR  sroRAoE  REA'SO'sS 

IVTEGER  UDRSFT 

2 A 
p u 

I • \X  ■'  = 0 

C INITIALIZE  ALL  CONSTANTS  AnD  TABLES 

2 '3 
2('. 

* 

* 

7 

pp 

CAi_L  INICOM 

C 0_'T'’JT  CONSTANTS  BN'  TAPE 

30 

C I.NSIN'E  MAPs 

CALI.  ^‘APER 

3 i 

5 continue 

N'PJN  = nRuN+i 

33 
3 '• 

N = 1 

C CBA'.'GE  INITIALI7.ED  CONSTANTS  FOR  NEW  RUN 

p Z', 

call  a G N C 0 n 

c PEaO  in  DRIVING  CYCLE 

37 
P o 

Ca;_L  RDEPA 
call  pJTCON 

3 p 
^ 

C OjTPCT..  "CO'nS  tant  TO  THE  LINE  P'RINTER 

call  prtcon 

^ ? 

C----  INITIALIZE  VARIABLES 

C.A|_|  INIVAR  ( N-F^RcE/ 1 OC-C/ UDNSFT  1 T i ME>  Iri  OCK,  irToxT 

^ 3 
^ 4 

C W Gn  I FTi  N;C-_C>  bS^  TBO  IG’w  T BO  1 G I > NG  I > NG  I OLD  / I C YE  ND  , V VO  A / V AN  A 1. 

C 'HP'.-.'UL^i  HP,:  A YM,  HPTRAr.V,  MPT  CCM,  HPPNGM  , hP  aHLP,  HPP  a XP  , HPTR  ANP  , 

4 

C HPTSCPiHPENSP/HPACC/ 

C ACTBRO>PAOC>BFORCEM,P I OLE/ 

A =, 

C TAO  iTR,  TAI  BAOC/ 

C T P'^'AX,  T II-U.EN,  T I MAVG,  P-‘‘  ON,  PaON.SSTORP,,  TAON,ESbPTO^  VAR  ) 

4 3 
50 

I -O  IC  = C 
ICYEND=0 

5 1 
5^ 

INIS,-.T  = 1 
IPEADY=0 

5 T 

IG0  = 1 ' 

27 


PJS  si  '''LAT'  P P ^ n Q r; M 


55 

r L o T ( I = Q 

TLST ( 3 ) =0 

5 6 
57 

fvFjF-L  = 0 
IS’'1a;<  = 2C 

5 8 

59 

I SAVE=  lS'^AX  + 1 
10  co\Tr,ur 

60 

61 

C ■ ~ 5 0 J < 6 r t;  I Ci  K 6 U T I \ L S F fj  R P fj /■' E f-<  . 

call  03  3EA  ( PaC-0/  PAfi\MAbNO  TA6C>  T9I  T9IC<  T9nN^  T90C^  ACTORG 

6‘? 

63 

C / SST0'<0>  VVPA/  ErPRCri-lj 

C HPPhLf-'^  ^'■•RAXM/ '•-PTRA\-‘j  HpTQC^S  fit^CNiGM 

6^ 

65 

C / >■■  ^'L  f’  ^ riPR  A XP  ^ HP  T R A p , htp  7 GCP  / HPE  NGP  / HP  A CC  ) 

r update  0Y3TPM  CLOCK 

6 6 

67 

rCL-T-^  = ! 0._0CK  + I 

TlYr=iCLOCK«DT 

6T" 

69 

--o:*-.^c*-TrnoT-rs”TP-E--TE5r  FGP  seet^'G'  rr-'TRT^t5'RGT]E  cplvf.pter  is  locked  up' 
Lec<\  1 '^eans  the  tc  is  either  locked  locking  unlbckp-g 

/ ^ 
71 

AC^.l'LK  is  The  oPEED  at  '.s-'1CH  YriU  LOCK  THe  IC 
r..,..  IE  Twr  £\'GIN'E  IS  AT  WIDE  OPEN  TH^CTTLE/ 

7c; 

73 

C*  » * * * ACCRl'  I S"TS  T7^L  speed  to  lock  uP  IF  not  AT  .•(  I OF  OPEN'  THROfll.E 
IP  (LOCK  .GT.  0 .PR.  WnS  .GT.  ACCLOCK  .OR. 

75 

C ( r A X . o ' , S S T L + 1 • . A ! > D . VV  j S • G 1 . A C C R U 1 S ) ) 

CCALL  L"C<IJW  ( VVr-S/  T I YE>  LOCK^  TA  I 1SP>  TAO  1 TR  ) 

/ 6 
77 

C"  " TO  ^CESS  AND  TPPOCP.NV  I .\  En'GTRQ 

r ENGIN'E  AND  TPP0..L'  "'PN'G'PTER 

7i 
7 9 

call  ERSr-DHTAC'lT^oTOl  1/T351EF^T3p1GR/T9I  IGPi 
r SST-JNC  . ACTPROy  VV'DP  < VVDJ,  VVCS  i PAON)  / TA  I 1 GP/  PA  0C>  I rfoCKj 

30 

31 

C ICLOKl/  i agx,  AA'j:,,ESD3T/BAfiC>  TAOCiLGCK  ) 
IP ( test ( 3 ) ) 15/ 20/ 20 

5? 
8 3 

15  continue 

C-.-,  AJT’^-ATIC  DRIVER 

8^ 

S5 

call  EPAVEl  (T1‘^£/VEPA,  ]cy!>:0/DEi  T) 

call  aUTO.Dt:^  ( VVOS  / to  I 1/  PP'MEF  / THOiGR  / T9I  IGR  / TAp  {tR/  VVOJ. 

5 6 
87 

C VVOD  I / T A I ISR,  ACTORN  / PAP.N/  DEuT/  VVDF / SSTORO/  53/  fiFrTFcCE/  T i'^E/  VPF>A/ 
C TMAX) 

S3 

39 

GO  TS  25 
20  CON'tIN'JE 

90 

91 

C THROTTLE  setting 

call  RlXcNP(PAn\:,TS/  TORO/MAPI  ) 

92 
9 3 

SSTT-Rr  = TCAD*SCALEF 
p5  CONTI'.'UE 

9 

S5 

C * — ■ H.’3  R S E F’  0 A E P 

0 5 H p = s 5 T fj  R 0 . P A 9 \ / 5 ? 5 2 

o ,, 

97 

C CAlCnLATL  F^^EL  Cl:N3D:'PT  I on 

call  P : X e N 2 2 ( P a p N , s 3 T 0 R 0 / P a 0 F R / M A p 3 ) 

93 

93 

'ICO 

101 

c during  INITIALIZATION  SKIP  BThER  CALCULATIONS 

I P ( I N I SaT  ) 30/  30/  60 
30  continue 

I SAVE = I SAVE  + 1 

10? 

103 

I F ( I S A ''  E - I 3NAX  )5G/  35/35 
35  ISA'/P  = 0 

ic^ 

105 

i^jF  Uc.L-^'^For.L  + l 
I F ( ■ n'  r ij  c - 6 0 ) 4 5 .1  4 5 > 0 

1C6 

AO  '/F  u E u = 6 C 
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G I ^'JL  AT  I Pk'^CiPAM 


■■'107 

ICA 

4 5 C0.\  M 

?TI‘'-E(KFUEl)  = ICI,OC<»OT 

109 
1 3 0 

ATa.303  ('-  Fuel  ) =ssT!Jro 
ES^EEr^  ( ^:?UEL  ) =®At)\ 

1 1 1 
3 1? 

50  continue 

c TIRE  growth  5;1BR0'JTINE 

I 13 

II  A 

call  3 30  I 5 ( VVOS/ T9  I ‘j,  T9  I lGr< ) 
C GEAR  SrlFT  G'JOROUTINE 

3 15 
116 

call  G.RSHFt  ( T-'QlGR,  I CLO  C K / I GH  1 F T / T9  I N/ TMAX/ IJONGF  T • 
C SSTORO^ TBPIOI » TAON ) 

Tl7 

IIS 

G----  T R A 05 A"  I S i I 5 V FFFIC!F^.CY 

call  0RrFF(TAiCiT501GFoTB3lEF,T3SiGiiT9lN>T9ic’) 

■ r'i9 
120 

C ••  AaLF  ETFICIEOCY 

call  rAEFF ( TS I Ci T9 i \0 TOl  1GR< T90Ci T9I 1) 

12T 

122 

r VtHTCTlL  OYnaTFICS 

call  VeDy\(  TBOlGi,VV0S>BS^T99C^  TB0lGRiT9riGR^VVRA 

l'Z3 

12A 

C~;A'-7U^7T9T1  , WDRDK:;Tn,/TyY  r,  DErr  AT,  V vFaO, 

C TVI'-J) 

1 CO 
126 

L - - - “ J 1 - 1 r •<  'J  i;  A 1 ; I L I t Y D I S T .R  I 5 U T I 0 .'J 

call  rr3Dz\  ( ssTORQi PAoOi nlt, ngt> i pox ) 

125 

icTCLr^rrYULE+i 
c IvTFGRATln.N  S'JBROUT  1 r.’E 

1 2F 
3 30 

UAdr  1 \T3-TT  ( ICUi'CTf,  TCLSG1<;.TTnEP/ vVOSi 
C \^Vr  A , W2ao,  VV03G.  PABER  , VVOO,  FijElF  d^APFRO  ) 

131 

132 

C CHEC<  FOR  EOO  0^"  DRIVING  CYClE 

NT  I “^F.  - I CLOCX 

133 

13^ 

NT  r’E^^oT IMF-ICLOKO 
I F ( 1 CyEnO- 1 3 55,90,90 

13" 
1 3 6 

c CHEC<  FOR  Outputs 

55  IF  (ATI  ■'■RP-  I --.‘UT  M 0,  55/  H5 

137 
1 3' 

60  C 6 \ T I \ u F 

C RLSFT  InTEGR'ATION  TIME  COUNTER  DURING  I N I T I A1  I 7 A T T ON 

13S 

3 

I CL56  1 = I CLOCK 

C r;i'"Ii'^l2ATI0N  SECTION 

1 ir  1 
1 ^ C 

IF ( IREaDY  3 65/  65,75 
65  CONTp.jr 

1 A3 
1 AA 
~1'A3 

lA^ 

C t-NGl'.E  IN  STEADY  state 

RATE=A3S(ESD0T3 

H (RATE-EPS37C/70, 10 
70  continue 

r4  7 
1 AO 

IRLaDy=  3 
TEST ( I OP ) =- 1 . 

1 ^ 
1 13 

GV  TO  10 
75  CONTI,..UE 

1 5 1 
15? 

IT  (TEST ( IGO  3 3HC/ 10/ 1C 

?.C  continue 

Tb3' 

15A 

1 N 1 5 /.  T = 0 
TE3T(?3=-1 . 

155 

156 

Ca^l  iniger(pa'jn,s5torg/PAc;Tr,  indic,  ici  ock/timf 

C / I Clp<  1/  TB"=  lEF,  T9IN,  T30N  / T90N-,  T9  i IGR,  WOS,  VVOA,  VVOD 

157 
1 53 

C /Fu’Fi_E,EmiSF,E'-'I5E  / ITICYC,  IShIFT,  IGEAR,^.HLQLD, 

CVVD'-'  I,DFLTAT,T9ICiT9Il/LnCK/ 

TbO 

C NlI'-F  ■ rCYC!EF,NGraLD,NG!  , T BO  1 OR/ T 58  1 G I , PAOF  RQ,  VVH  AO 
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QLIS 

3 6 1 
163 
163 
1 6 6 
165 

SJ'-'JLATIOM  nor? AM 

C~ . V V J SCTl  I P!:x  , T ! MMAX  , T I f"A  VG  / T I MLtN  , NL  V / 6GT  , VPPA, 

C 53  i ^ VVOr  . WOP 5 3,  TV  I KJ>  TaOC/ 

C IClGkC) 

85  CONTiKijr 

c fjT'-jt  section 

Ou'P  T0  space  LI."'lTATia\S  ONLY  THF  pIpST  Uo  CYr”FS  ARE  RECQRDrD 

1 66 
167 

C A L u t,:  j T V A R 

1 fo 1 C = 1 

1 6B 
169 

CXll  output  (ML  Ike, PAGER, OBHP/VVPS/FUELEi 
C VVOA,T  Ii'E,  VVMA,Pa9.M,53T0RC,  TAI  1 SR  , T A fll  TR  , TB6  1 EP  , 

■ 170 
171 

C~7  S 1 1 , TBG  1 G I , T AON,  T A OC,  PAOCi  WOO  ) 
NFUEL  = C 

IT? 

173 

1 oA  vE  = I b'-"  AX  + 1 
ICL"-<C=  ICL3CK 

T7T*’ 

175 

TR  (\  .GT.  lifO)  goto  110 
XTP'E  (M)  = TIME 

“17  6 
177 

ITSSTjR  no  =1ST9TEG'  ' . ' 

X A C T 0 R ( ' O = A C T 0 iR  0 

"775 

179 

X H A C ( s ) ==  P A 0 C 
XTA--C  (3  ) =TAG'C 

1 6 0 
131 

XT9lCTTT:T  = T5TCr‘ 
XTS’-IC  ( M ) =T9‘)C 

r£< 

1S3 

li'^ 

135 

o-_A3rn  =TE:Jl'Gr  ■ ■ ■ 

XOb-P  t M ) = SST3PQ ,PAGM/SE52 

A C C ' • P { : ) = A C T 0 ■<  G * .p  A G N / 5 3 5 2 
FLY--P  ( \ ) =paGC  'PA  3\'/5F52 

156 

157 

COM-'p  ( 'A  ) = ( T AOC  « A';:n|/5F5P  ) » T A I 1 SR 

DRSPP ( M M ( T9  I C»PAGM/5252 ) * ( 1 . O/TPOIGR ) ) *TAI ISR 

1 ^ 

RAXMP  (.,)  = ((  T 3 OC  'PAG  M/5252  ) ( 1 . 0/ T9  I 1 Gk  ) ) » T A I 1 SR  * ( 1 .O/TBOIGR  ) 

N = \'+  1 

1 ■?  c 

110  COM  r.wF 

191 
1 n 


G9  T‘J  10 


30 


1 9“r 

C TER''I\ATln\'  SECTION 

• 

19- 

CAI,L  C'UTVAR 

195 

End  ^ * l.  ti  16 

196 

CALL  ‘rwTPuT  ( ML  I NE  , P A9  ^ R , 0 L- HP  , V VO  S/ FUE 17' , 

197 

C VV^>  A,  T I ME,  VVMA,  Pa'-N,  3ST0R0,  TA  I ISR,  TAO  1 TR,  TBOlEF, 

196 

C To  I 1 , TAL'iG  I , tAON,  TAUC,  PaO'C,  VVSO  ) 

193 

cal  L JjA'Suh  ( IP'DX,  I CYCLE  / f,L  T , \ G T , V V9D  , EUELE  , i.;P  WhL  P , 

>0C' 

C hPa-l-',  HPRAXPi  HPRAyM,  HPTRANP,  HPTRATjM,  Hf'T  OCP, 

20 1 

C HPTOC’",mpemGP,MPe\Gm,HPaCC,T  I!'E, 

903 

C XT  I 'ML,  XSST  ;R’,  XPa'jC  WaCT  OR,  XTaOC,  VT9IC,  XT  90c,  gear 
C , X"‘H-P,  ACC  iP,  FLYmp,  CCMPP,  DRSHP,  RAXHP  ) 

'Goa 

^^EAD  Su-ilSTDP 

?05 

95  FOR'^^AT  (12) 

316 

rr ( isTC'P ) lo'o/  loo^ 96 

5 07 

96  COMTl.'.jP 

AO'l- 

G3'  TO  3 

;o9 

ICO  continue 

•1C 

pause 

'^11 

rf.turn 

30 


3.3  PROGRAM  SUBROUTINES 


The  overall  program  consists  of  the  mainline  program  and  the 
subroutines  which  are  listed  below  and  described  in  the  following 
pages . 

SUBROUTINE  NAME  SECTION  NUMBER  PAGE 


AGNCON 

3.3.1 

36 

ACCESS 

3.3.2 

38 

AUTODR 

3.3.3 

41 

ENGTRQ 

3.3.4 

47 

E PAVEL 

3.3.5 

52 

GRSHFT 

3.3.6 

52 

INICON 

3.3.7 

58 

INIGER 

3.3.8 

63 

INIVAR 

3.3.9 

66 

INTGRT 

3.3.10 

68 

JPBSUM 

3.3.11 

72 

LOCKUP  AND  LOCKCAL 

3.3.12 

76 

MAPER 

3.3.13 

81 

OUTCON 

3.3.14 

84 

OUTPUT 

3.3.15 

86 

OUTVAR 

3.3.16 

89 

POWER 

3.3.17 

90 

PRBDEN 

3.3.18 

92 

PRTCON 

3.3.19 

95 

RDEPA,  EPACALC,  E PAVEL 

3.3.20 

102 

RAEFF 

3.3.21 

111 

RIXON2,  RIXON  22 

3.3.22 

121 

TGG15 

3.3.23 

125 

TQCONV,  VELTERP 

3.3.24 

130 

TREFF 

3.3.25 

138 

VEDYN 

3.3.26 

152 

VELTERP 

3.3.27 

162 

The  relationship  of  the 

subrout ines 

to  the  mainline  program 

is  clearly  shown  in  Figure  7,  the  mainline  program  flow  chart. 
Program  subroutines  are  described  in  the  following  subsections. 
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FIGURE  7.  FLOW  DIAGRAM  FOR  SIMULA 
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VEDYN 

Calculate 

vehicle 

dynamics 


FIGURE  7.  FLOW  DIAGRAM  FOR  SIMULA  (CONI' D) 
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FIGURE  7.  FLOW  DIAGRAM  FOR  SIMULA  (CONT ' D) 
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FIGURE  7.  FLOW  DIAGRAM  FOR  SIMULA  (CONI' D) 
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3.3.1  Subroutine  to  Read  Data  - AGNCON 


SUBROUTINE  NAME:  AGNCON 

TYPE  OF  SUBROUTINE:  Input 

DESCRIPTION:  This  subroutine  will  be  used  when  it  is 

necessary  to  make  a set  of  runs  in  which 
only  one  or  two  parameters  are  varied. 
AGNCON  is  written  to  read  in  those  para- 
meters which  are  being  changed.  The  cards 
to  be  read  in  by  AGNCON  are  added  to  the 
back  of  the  standard  data  deck. 


EQUATION:  N/A 

INPUT  VARIABLES: 

N/A 

OUTPUT  VARIABLES: 

N/A 

PROGRAM  VARIABLES: 

N/A 

FLOW  CHART: 

N/A 

NOTE:  No  listing  for  AGNCON  IS 
provided  here.  Statements  will 
vary  depending  upon  which  para- 
meters are  to  be  changed. 
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BUS  Glfl.iLATl9N  PR.9Gt?AM 


1 : 
2: 

* *•»*•»  ASKCG\' 

SU3RSUTINE  AG\'Ce\ 

3: 

C*»**.“Th13  S'jbS5jTI\L  IS  USEL''  To  ifnANGE 

without  havixg  to  reinitialize  the 

T H L 1,^  J S 

entire 

OR  CYn.E  CHARACTE-' 
SYSTEM 

5: 

rc~co\rr [^JE 

6: 

return 

/ : 

ETIT5 
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3.3.2  Accessory  Load  Subroutine  - ACCESS 


SUBROUTINE  NAME: 

ACCESS 

TYPE  OF  SUBROUTINE: 

System  computation 

DESCRIPTION: 

This  subroutine  calculates  accessory 
load  in  foot-pounds  given  the  engine 
speed  in  revolutions  per  minute 
(RPM' s) . 

MODELING: 

The  accessory  loads  are  stored  at 
200  RPM  intervals.  Figure  8 illus- 
trates a typical  accessory  load  curve 
from  which  the  points  are  taken. 
Linear  interpolation  is  used  for 
non-node  points. 

EQUATION: 

Ta  = §4  (Ng) 

INPUT  VARIABLES: 

PAON  - Engine  speed 

OUTPUT  VARIABLES: 

ACTORQ  - Accessory  torque  loss 

OTHER  VARIABLES: 

ACLOAD(IO)  - Accessory  load  table 

PIDLMIN  - Minimum  engine  speed  table 
good  for 

PIDLMAX  - Maximum  engine  speed  table 
good  for 

PROGRAM  VARIABLES: 

I - Low  index 

FLOW  CHART: 

II  - High  index 
N/A 
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FIGURE  8.  ACCESSORY  TORQUE  AS  A FUNCTION  OF  ENGINE  SPEED 


DaTC 


FJS  SI^''DLATI3N  program  DaTC 

1 

* «**♦  ACCLSS  **»* 

SJoRGUTINT  access  (P4t;\'iACT0PC) 

— 3 

k 

r.-»-  CG^'PUTE  ACCESS3RY  L'^'AO 

C-.*#**  Tuis  SUGKPUT 1 K'E  DETERMINES  THE  ACCESSfiRY  LFAD  THAT  is  USED  BY  TI'E 

b 

6 

C*  • * “ * BO'S  EjR  a given  r’in'lNE  speed.  a linear  I NTERpmi  at  I'6N  METhnD  IS  U 
C»*»»*  PIDLMIN  and  PIDLMAX  are  the  B6UNDS  OF  THE  ARRAY  AKCLSS 

-~T' 

S 

C**  * * • 'r.lC-  HOLDS  T-E  ACCESS-'RlEi  IN  2CC  RFM  INCRENENITS 
HGDSPN  9/21/76  FOR  THE  BUS 

" 9’ 

in 

CO^'^giWAKCESS/  AClOAD"'!  r6)/"FlDLMp.j^PIDLMAX 
IE  (PA5N  .LT.  PIDLMIN)  GOTO  10 

— 1 r 
1? 

IT  fpADN  ,GT.  PiDLMAX)  GOTO  20 
I=PAON/?00-3 

TT 

14 

nvy+'i 

REM^PAOn- ( i +3. ) *200. 

“I  D 
16 

ACmR!,;=7CLOG\0  n ) + RlM«  ( aClOaD  mr-ACLSAD  ( n ) /20n# 

GOTO  993 

"17" 

18 

TCT'CB'^JTXrCiJE 

ACTORr;  = aClqad  ( 1 ) 

1 9 
?.o 

"T/;T0  999 

20  continue 

?? 

TCT^KfirACLOADl  lO) 
539  CONTINUE 

?4 

END 
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3.3.3  Automatic  Driver  - AUTODR 


PROGRAM  NAME:  AUTODR 

TYPE  OF  SUBROUTINE:  System  computation 

DESCRIPTION:  This  subroutine  specifies  the  steady  state 

torque  required  to  follow  a given  velocity 
profile . 

MODELING: 

This  subroutine  is  the  controller  for  a closed  loop 
feedback  control  system  in  which  the  vehicle  velocity  is 
the  controlled  variable  (see  Figure  9 j.  The  "error"  is 
the  difference  between  the  actual  vehicle  velocity  and  the 
velocity  specified  at  the  next  cycle  point.  The  automatic 
driver  determines  the  engine  torque  required  to  overcome 
accessory  load,  friction  and  acceleration  forces  to  reach 
the  next  cycle  velocity. 

Subroutine  EPAVEL  supplies  the  automatic  driver 
(AUTODR)  with  the  velocity  required  at  the  next  specified 
point  in  time  and  the  time  difference  between  that  time 
and  the  current  time.  The  cycle  velocities  are  specified 
at  one  second  interfals. 

The  automatic  driver  calculates  the  acceleration  re- 
quired to  reach  the  next  cycle  point  within  the  time  dif- 
ference , 


At 

The  steady  state  torque  required  of  the  engine  to  pro- 
vide this  acceleration  is 


Tgs  - 
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FIGURE  9.  AUTOMATIC  DRIVER  ALGORITHM 


K is  the  torque  multiplication  factor  from  the  en- 
gine to  the  rear  wheels.  Its  value  is  determined  by  using 
the  gear  ratios  and  efficiencies  calculated  in  the  pre- 
vious iteration  (see  Figure  4) . K will  become  zero  at 
zero  driveshaft  torque  because  the  driveshaft  and  rear 
axle  efficiencies  are  zero.  This  means  very  large  engine 
torques  would  be  required  as  K approaches  zero.  To  pre- 
vent this,  a minimum  transmission  and  rear  axle  efficiency 
of  0.8  is  assumed  when  calculating  K.  A similar  problem 
exists  if  At  approaches  zero  in  the  acceleration  calcu- 
lation. To  prevent  this  EPAVEL  supplies  the  next  re- 
quired velocity  when  At  becomes  less  than  .1  second  . 

To  prevent  the  engine  from  attempting  to  overcome 
the  vehicle  rolling  resistance  at  idle,  the  resistive 
force  of  the  vehicle  is  set  to  0 when  there  is  no  vehi- 
cle speed. 

The  subroutine  also  ensures  that  the  limits  of  the 
engine  are  not  exceeded.  It  determines  the  maximum  en- 
gine torque  and  the  minimum  engine  torque  possible  by 
checking  the  wide  open  and  closed  throttle  torques  of  the 
engine  at  the  given  speed.  It  supplies  only  the  maximum 
engine  torque  if  the  maximum  torque  is  exceeded,  or  cal- 
culates the  required  braking  force  when  the  minimum  en- 
gine torque  is  not  enough  to  slow  the  vehicle  as  rapidly 
as  required. 


EQUATIONS: 


1)  A 

2)  K = 


V.  V 
1 - 


R At 
TR  • n 


where:  At  > 0.1 


RA 


'TR 


*^^RA  ^^TR 


3)  Mj  "^E 


SR  • GR 


RA 


where  : ’^RA  ^ 0 . 

'^TR  > 0 . 

• GR^j^  • GRg^  2 


RT 
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where : 


(Mj)^  is  the  inertial  mass  of  the 
vehicle  as  calculated  in  the  vehicle 


dynamics 

subroutine  (VEDYN) . It  does 

not  include  the  rotary  inertia  of  the 

engine . 

hs  = 

^R 

M.  + R 

K ^ 

A 

5)  Fj  = 

. - *^^SS^ 

min 

required 

K 

INPUT  VARIABLES: 

Variable  Name 

Symbol 

Description 

VEPA 

V. 

1 

Required  cycle  velocities 

VVOS 

V 

Vehicle  velocity 

BELT 

At 

Time  difference  between 
next  cycle  point  and 
current  time 

T9I1 

^RA 

Rear  axle  gear  efficiency 

TBOIEF 

hfR 

Transmission  gear  efficiency 

TBOIGR 

GRfR 

Transmission  gear  ratio 

T9I1GR 

“^^RA 

Equivalent  rear  axle  gear 
ratio 

BGRTIO 

™BG 

Bevel  Gear  Ratio 

TAON 

^CO 

Converter  output  speed 

PAON 

Engine  speed 

LOCK 

Indicates  if  torque  conver- 
ter is  locked 

BAOC 

Converter  input  speed 

OUTPUT  VARIABLES 

: 

PAOC 

A 

Engine  output  torque 

TAOC 

^CO 

Converter  output  torque 

44 


OTHER  PROGRAM 

VARIABLES 

TAIISR 

SR 

TAI3KI 

h 

TAI3IK 

l/Kj^ 

TAOITR 

TR 

CONSTANTS  IN  MEMORY: 

AWAY(20 ,30 

BGRTIO 

Variable  Name 

Symbol 

WDF 

R 

TAOITR 

TR 

TAIISR 

SR 

WDMI 

ACTORQ 

(Mt) 
j ^ V 
A 

PAON 

^E 

TMAX 

(^ss^ 

MAX 

SST 

MIN 

OUTPUT  VARIABLES: 

SSTORQ 

^SS 

BS 

VVDJ 

Ml 

BFORCE 

h 

VARIABLES  WHICH  MUST  BE  STORED  IN 
VVI2BR 

D 


Speed  ratio 
Input  size  factor 

Inverse  input  size  factor 
squared 

Torque  ratio 

Column  one  hold  speed  ratio 
column  two  the  torque  ratio 
and  column  three  the  inverse 
size  factor  squared 
Bevel  Gear  Ratio 

Description 

Vehicle  road  load 
Converter  torque  ratio 
Converter  speed  ratio 
Inertial  vehicle  mass 

Accessory  torque  loss 
Engine  speed 

Maximum  steady  state  engine 
torque 

Minimum  steady  state  engine 
torque 

Steady  state  engine  torque 

Brake  setting 

Inertial  vehicle  mass 
including  engine  rotary 
inertia 

Braking  force 
MEMORY: 

Brake  constant 
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RIE 


VVIDRR 


Jg  Rotary  engine  inertia 

Rrj,  Tire  Radius 

NOTE:  R^,  is  considered  constant  only  be- 

cause the  effect  of  tire  growth  is 
considered  as  an  effective  change 
in  rear  axle  ratio  (see  TGG15) . 


OTHER  PROGRAM  VARIABLES: 


T9ID 

’^RA 

Dummy  rear  axle  efficiency 
variable 

TBOIED 

Dtr 

Dummy  transmission  effi- 
ciency variable 

AEPA 

\ 

Acceleration  required  to 
reach  next  cycle  velocity 

GR 

GR 

Gear  ratio  from  engine  to 
rear  wheels 

TQMULT 

K 

Total  driveline  torque 
multiplication  factor 

SUBROUTINES  REQUIRED: 

RIX0N2  (PAON,  TIDLE,  SST,  MAPI) 
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3J3  SI^'|JLATle^'  PRBoPAM oil! 


— T 

p 

— i" 

A 

* ■*‘****'AJTiiD^»*** 

SJ3R3UTI RE  A JT6DR  ( Vy OS / T 9 1 1 / ToC 1 F F > T - 0 1 GP / TS 11 GP . TAOITP/ VVDJ, 

C VVDM-I  / T A 1 1 5R,  AefORr;^  pAOfw  DrLTTvVoEi  SS  rCROi  BS/  BFnRCEi  T 1 PE  . VPPAi 
C THAX) 

" b 
6 

C :<APr  LLE‘.>  ALGOR  i trim  bY  K.  BEACHLEY<  1-8-7^ 

RICK  HuDSgx  1/77  FCR  THE  BUS 

/ 

3 

ooLj-boIlMt  TO  AvTlCi»-ATL  LnGIiXE  STEADY  STATE  IhROUE  AND  BRAKE 

0 oETTIXj  REQUIRED  T6  FOLLOW  A GIVEN  DRIVING  CYClE. 

TT 

10 

common  /bGEAR/  BGRTI0 

ce--os‘  /e\'gin/scalef,tidle,evs/T5  ■ 

IT 

12 

C^MT3\  /Inertia/  riE/RIE]nv 
dimension  MAPI (55/  17  ),MAp3( 17> 17) 

13 

lA 

L'JM-S\  /P.APS/  MAPI, -APS 

coMMgx  /Pass/  vvilfp , vvi icd. wi irp/ vvimi / vvisBR/ vvim/ vvi mdr. 

lb 

16 

c~  VVlSWtTVVlSN/ VVIAMX/ VVI'AS 

C9M-eiv  /TIRE/  VVIDRP/VVIFUM/VVIFUS/VVI  ICF 

13 

C*‘*t**  VEha  is  CALCiJLATt.0  iTTTP'AvTl' 

13 

20 

attfat  (■  VETADT  tjst/del  T ;;  ;;  qq 

IF(VEpA  .LE*  0.1  .AND.  Wes  .LE»  0.1)  VVDF  o 0.6 

21 

22 

•» 

T91D  and  T501ED  are  SET  TO  .8  MINlMuPS  TO  AVOID  DIVISION  BY  ZERO 

2 j”" 
2A 

T3I  L.  ^T^TI 

1F(Tojd  ,lt.  0.8)  T9  ID  = 0.8 

25 

26 

♦ 

TB9  lEO^-TBoiEF 

27 

23 

IFfTBolED  .lt.  0.3)  TBOlF.D  = 0.8 

2 3 
30 

C DETER'-InE  torque  Ml;LT  IPL  I CAt  I on  from  FNGINE  TO  RfaR  WHEELS, 

c gear  RATlo^prAR  Axle  ratio,  bevel  gear  ratio  In  qinnOMINATER 

31 

32 

G M = '/  V I D rR  R / { T B 0 1 G R « T 9 I 1 G ' . r G R T I 0 ) 
TvDMUi.T=  (TA0UR»T9ID«T531ED)/GR 

33 
5 A 

c DETER'^jnE  total  EQuP'AlENT  P-ASS  of  VEHjCLE  jNCLUDiNG  ROTARY  INERT 

C 0-  DRIVETPAIN  and  EMHNL). 

3 ’3 

7'7./J  = VVDM[4p[p»({TAl!.SR/GR)*«2)/32.1739 
C AN'TICIPATe  TrF  steady  state  ENGINE  TORQUE  RPQUIRPO  T0  ACHlFVE  THE 

37'  C ’."XT  cYCLl  VEieciTv. 


S3t:'S':=  (aepa*vvdj*i  . aaav  + vvof  ) /Td-^ULT  + ACTeRro 

33;  in'ArpA  •lt'»‘6*c5  . a,\d.  "p'asr  .lt.  950.0 ) 

1 35T_e?£_=  SCALEF*  (_Sjn  qR34-_(_950_.0'PAO\)/RIj:lJ^V  ) 

Af:  C----  r'^'R  Pr'SlTTvE'STF'A'DY  GTAf?:  torque' check  THAT'  ENO I NE  NOf  REQuIreI 

~ ^ RXCEEO  its  ^AXlRUr  T'-RCUE  capability. 

'♦"5':  cA'^l  = I xOKa ( pao\>  loo.  < t^'ax/ ^-api  ) 

_aa:  T‘ux  = tyax»scalef 

Ab:  TF  ‘ ( S'oT'O'kQ  .err.  TMAX)SSfO'R'C  = TMAX  j 

__A6; c BS  = 0.j  

^7;  C 5r0RCET=0.i 

: c g^to  900 

A9:  C ueTl----i\e  ;iax[TIuT-:  negative  Oteady  State  tOrquf.  piissible  for  giver’ 

_50:  C C^■oI^E  SPEED. 

~'bT:  ■ C m u.  L f-' ' X 0'L'2  rP“A  3',\ , T S i S S T # Y A P i ) 

5P;  S5T=SST.SCALEF 

~53“r~  ■ I T r bST  s R r;“  LTi“scT)nroi7T  TKur7 
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I'xji  vj  •, 


SI^^JLATIO^I 


o‘y 

t;  t: 


60 
61 
6 ci 
_6  3 
6^ 
65 


6 6 
67 
■65T 


C-' 


C DF0r.'Ct:=  (SST-G:;tOR3)  *TGMULTj 

_ c E ? ^ O F /yy  IJi  0 R ; 

C S o T 0 0 = :3  3 T / 

C G^Tn  soo  

- ‘TOPT.Jr  ’RE"^ur-^T'CrTT'"TV:E"T‘yGTiyr7r^~TT.rTECEL^^^^  foRGuE  PRC 


C UY  The  engine  TIHEG  T'-^E  torque  YULTI?LICATIf'\. 

T ^ - TT  R I-;  I \ E r ^ E~^  F 0 I eg  HRAkE  FORCE  A3  THE  DfFFFRFvfE  5ETWFEFJ 

r THE  3PA<E  setting  IS  THE  REQUIRED  aRAKIHG  FORCF  illVlDED  BY  TH 

C-“--  GR'ATi?E  'CONSTAHTr 

****  IF(SStGR'J  ,lTi  ThAX  .AUD.SSTeRC  .GT.  SGT)  THEN 

6 G = 0 t 

BForce  = 0* 


RET  URN 
END 
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.3.4  Integration  of  Engine  Speed  - ENGTRQ 


SUBROUTINE  NAME:  ENGTRQ 

TYPE  OF  SUBROUTINE:  System  Computation 

DESCRIPTION:  This  subroutine  calculates  engine  accelera- 

tions based  on  needed  flywheel  torque,  ac- 
cessory torque  and  steady  state  torque.  If 
the  torque  converter  is  locked  up  the  engine 
speed  is  calculated  directly  based  on  gear 
ratios  and  efficiencies  from  the  previous 
iteration.  After  the  engine  speed  is  calcu- 
lated the  input  speed  for  the  torque  convert- 
er is  determined.  See  Figure  10. 

MODELING:  A second  order  integration  scheme  is  used. 

This  subroutine  is  used  in  the  all-digital  pro- 
gram only. 

EQUATION:  For  locked  up  torque  converter 

TM  = FG^jj  * GR|^  * GRgg  * TRj,„  * '^RA  * TA/RT 

- Fp/TM)  * TM/Fj  • DT  * 

Ng  - * GR^^  * GRj/(SR^(j  * RT) 


For 

ANg 


unlocked  torque 


T 


SS 


- T - T 
A ^E 


converter 


^E  ^E 


*-^^E  OLD  ^^E  NEW^ 


(Ti 


^PO^ 


DT/2 
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FIGURE  10.  ENGTRQ  FLOW  DIAGRAM 
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Variables  Used 


Symbol 


Input 

ACTORQ 

BAON 

^CI 

ICLOCK 

T p 

ICLOCK  1 

T 

PO 

LOCK 

PAOC 

PAON 

^E 

SSTORQ 

T 

SS 

TAIISR 

SR 

TAOITR 

TR 

TAON 

T 

^CO 

TBOIEF 

bpR 

TBOIGR 

GRpR 

T9I1 

’^RA 

T9I1GR 

^^RA 

WDF 

WDJ 

WOS 

V 

Output 

BAOC 

^CI 

BAON 

^CI 

PAOC 

PAON 

Ne 

TAIISR 

SR 

TAOITR 

TR 

TAOC 

T 

CO 

Meaning 

Accessory  Torque 
Converter  input  speed 
Present  time  pulse 
Past  Time  pulse 

Indicates  if  converter  is  locked 
Engine  output  torque 

Engine  speed 
Engine  torque 

Speed  ratio 
Torque  ratio 
Converter  output  speed 

Transmission  gear  efficiency 

Transmission  gear  ratio 

Rear  axle  efficiency 

Rear  axle  gear  ratio 

Total  drag  force 

Vehicle  velocity 

Converter  input  torque 

Converter  input  speed 

Engine  output  torque 

Engine  speed 

Speed  ratio 

Torque  ratio 

Converter  output  torque 
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Variable  Used 

Symbol 

Meaning 

Local  Variables 

ESDOT 

AN„ 

E 

Engine  acceleration 

ESDOTO 

ANrp 

Previous  Engine  acceleration 

Constants  Used 

BGRTIO 

Level  gear  ratio 

DT 

AT 

Length  o£  time  pulse 

RIEINV 

Inverse  engine  inertia 

VVIDRR 

«R 

Wheel  radius 
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PA-PC  E'-'GInE  T9RGUE  AT  ThE  FlYWHEFL 
P~fT'’>,  ENoT i\E  PJrEED 
TAIISR  converter  S^^EED  RATIO 
C SFTvERT  E irTO‘R:jur‘‘R'A  TTt3 


2=:  CALL  ACCESS  ( "AON/ AC  TORS ) 

gP-  CALL  TLCQNV(LRC^/PA"C/ACT9RG/TA0lTRi 


C TA  ! ICR  / T AL'N  / BAON,  bAOC/  T AL'C  ) 
IF  (L'-'C'/  .Gf.  1) 

■c"'TM^  ('TA'nitR.TOI  r*T 


; 


X 


ji 

3E 


33: 

C G8 

3A; 

ES9 

3^3  • 

PA9 

36 : 

ESO 

1EP»TB91GR*T911GR»!VGRTI5)/vvI0RR 

ACri.r  ( SStORI-ACTOPQ-VVRF/TM  ) «TP  / ( VVOJ*  1 • Aa67  ) 

EvV9S  = ACEl'-GT  + vV9S  ; 

PA"N=  EVVfJS*T3f!lG';<T9I  1 GR*D3R T I 6 * 1 A , C0565/ / T A ? 1RR*VVIDRR)  i 
000  ■ 

= (SoTnRQ-ACTORR-PA‘^T)*RiElNV 


'0iN+(E5:)9T+ES0eT0)  « ( I CLOCK  - J CL0«  1 )*DT/2» 


33:  LU  S ■-■  P A fj  N / B G R T I 9 

39:  ■ 999  Ce\Tl,\u-E 

AO:  RETURN 

A 1 ; Enl)- 
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3.3.5 


Subroutine  to  Obtain  Target  Velocity  - EPAVEL 


SUBROUTINE  NAME:  EPAVEL 

DESCRIPTION:  See  RDEPA  - Section 

3.3.6  Gearshift  - GRSHFT 

SUBROUTINE  NAME:  GRSHFT 

TfPE  OF  SUBROUTINE:  System  Computation 

DESCRIPTION:  The  gear  shift  subroutine  determines  the 

transmission  gear  number  and  gear  ratio  as 
a function  of  the  driveshaft  speed. 

MODELING:  In  this  simulation  the  driveshaft  speed  at 

which  shift  occurs  is  stored  in  memory. 

This  is  done  in  the  initialization  subroutine 
^ (INICON) . The  shifting  criteria  can  be 

specified  for  2 or  3 gears. 

The  gear  shift  subroutine  retrieves  drive- 
shaft  speeds  at  which  upshift  and  downshift 
will  occur. 

The  block  diagram  in  Figure  11  shows  the  gen- 
eral procedure  for  determining  the  gear 
ratio . 

When  a shift  takes  place  the  program  changes 
the  gear  ratio  linearly  between  gears  for  a 
period  of  1/2  second  to  simulate  slipping  of 
the  clutch  bands.  To  prevent  the  trans- 
mission from  upshifting  and  downshifting 
continuously,  some  form  of  hysteresis  must 
also  be  introduced.  This  is  accomplished 
by  holding  the  transmission  in  the  new  gear 
for  another  second  before  allowing  it  to 
shift  again. 

The  program  returns  the  converter  turbine 
speed  for  use  in  calculating  the  speed  ratio. 
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FIGURE  11.  GRSHFT  FLOW  DIAGRAM 


i 

I 
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EQUATIONS : 


1)  Equation 
GRtr 

to  determine 

GR.  + (GR.  J 
1 ^ 1 + 1'^ 

gear  ratio  during  gear  change. 
. ^N 

2)  Equation 

to  determine 

converter  turbine  speed 

NcO  = N 

* GR 

PS  TR 

INPUT  VARIABLES: 

Program  Name 

Symbol 

Description 

TBOIGI 

GI 

Gear  index  (number) 

T9IN 

%s 

Driveshaft  speed 

ICLOCK 

Time 

TMAX 

"^MAX 

Maximum  engine  torque 

SSTORQ 

”^SS 

Steady  State  engine  torque 

OUTPUT  VARIABLES 

TBOIGI 

GI 

Gear  index  (number) 

TBOIGR 

GRtr 

Transmission  gear  ratio 

TAON 

^CO 

Converter  turbine  speed 

VARIABLES  WHICH  MUST  BE  STORED  IN  MEMORY: 

GRMIN(I) 

Minimum  driveshaft  speed  for 
Gear  I 

GRMAX(I) 

Maximum  driveshaft  speed  for 
Gear  I 

TBCICI (I) 

GR. 

1 

Gear  ratios  for  gears  1 through 
i 

IBCIGI (I) 

GI  . 
1 

A bookkeeping  variable  to  de- 
termine when  bus  is  in  low  and 
high  gear.  1 = low  gear,  3 = 
high  gear,  2 = intermediate 
gears 

TBDTMS 

t 

s 

Time  allowed  for  gear  shift 

TBDTH 

Time  alloted  for  shift  hys- 
teresis 
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OTHER  PROGRAM  VARIABLES: 


I 

UDNSFT 

I GEAR 

TBDTIN 

ISHIFT 

i Integer  form  of  gear  index 

Integer  indicating  if  shift 
is  in  progress 

+1  Indicates  pushift  or  downshift 

tj^  Time  elapsed  since  gear  shift 

Time  at  which  shift  is 
initiated 

TRANSMISSION 

SHIFT  SCHEDULE 

UPSHIFT 

DRIVESHAFT  RPM 

1-2 

920 

2-3 

DOWNSHIFT 

1580 

3-2 

1520 

2-1 

550 
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^JS 

tU’JLATISN  program  ' hatp  •i 

1 

**  ***«  u^iSHFT  *****  , 

S'Ji3^0UT  I NE  ORSHP  T ( TL-9  1 G" / I CL 9 CK  i I SH  1 F T , T9  I N,  Tt.-lAy  . UDNSFIi 

3 

ii 

C S3T9«Q/TB?10I/TA6N) 
C«****  RICK  HUDSON  1/77 

6 

" 7 

c*.**.  This  SjDrojtine  calculates  the  gear  ratio  as  a function  of  the 
c****.  DRIVES^Aft  S^’EF.D 

c----  TBoiGi-  Current  gear  in  lhich, vehicle  is  operating. 

3 

10 

C "T9l  N-DR  I VESHAFT  SP^ED  (RpR). 

C I CLOCK-T  INE' • ( ONE-HUNDRETHS  of  a SECOND). 

n 

12 

c T33)G!-\'EL  gear  index  IF  VEHICLE  CHANGES  GEARS.  i 

1 j 
u 

w - - - ■ 1 N U 1 G T - T K A S i S b I 0 \ G E A ■■’  R A T I fa  , , 

-10 

16 

-"C-----  ISrnrT^ITTE  ATyvnirR-SH-iFT  rS^lNirrATED.  i 

"T7- 
1 0 

n F^yTNjT^U'‘^uFrVEF'HAFT“S^PE£ir~roR‘~THE  nCD'rXED  gear 

c****.  GR-^AX  *"AX1UU’"  DRlVES'-iArT  SPEED  FoR  Tup.  INDEXED  GPAR  : 

17 

20 

L ♦♦♦*-•  GR'AD.’CR  VnAyTU'!  DR  I VES-^Af- T speed  FOR  TME  InDLXFD  GEAR  IF  T'-iE  BuS  l5 
C*‘*»*  IN  CRUISE  KODE  . i 

Er 

2? 

C ” T b L i U I ( I ) - (j  L A -(i!  A I I 2 S f-  fa  f-(  G E A S 1 T H R fa  J G H 1 . 

C--”-  I3C1GI(I)-  DSOKkeEPING  variable  to  DETERNiNr  WMf,s,  caR  js  IN  HIGH 

2T 

2'- 

AFD  rUT.  N3E7Gt.  “C3EFT;L  FFR  TRANS'^rrsSrDVs  hTTH  NORF  TUAN'  3 GEARS.  " ” 

C----  TBdTPS-TI'^F  allowed  for  gear  SHIFT. 

25 

26 

C tbdth-delay  tixf  after  Shift  before  another  shift  can  occur. 

27 

28 

C**..,  UDnSFT  UPS-IFT  or  DbNNSHiFT  INDICATER 
C TBDTIN-Tlup  elapsed  SU,CE  GEAR  SHIFT) 

29 

30 

G»*«****»**«*»-.. »***»*«****»*#«»j,,j, *,,****).».*,**,  j,.  #*. 

CT-x-'.ov  /SMi--jrp/  GR’-'AX  ( 3 ) / GRp  I N ( 3 ) / GRUaXCR  ( 3 ) 

31 

32 

COu-0(,  /SFjr-E/  TbDTFS.THDTH  , i 

CONDON  /TGRTy/  T BC  1 GR  ( 1 0 ) > GR  1 ' 

33 

34 

INTEGER  UDNSFT  j 

I = T Go  1 G I ! 

35 
3 o 

I y TbClGl -UDNSFT  . * ' 

r calculate  TINE  ELAPSED  SINCE  LAST  GEAR  ShIFt,  ' 

37 

38 

T bDT 1 N=  1 CLOCK- I SH I FT 

C DE:TrRPlNE  IP  VEUICLE  IS  IN  PROCESS  OF  CHANGING  GfARS.  i 

39 

40 

TP  (TAiDTi'N'-TbDTHS ) 10*  10/ 1 1 . ^ . 1 

C IP  CHANGE  IS  IN  PROGRESS,  CALCULATE  NEW  GEAR  RATIO  BASED  ON  TIME.  | 

Ty 

42 

10  T p2  1 GR  = tBCI  GR  ( I ) + ( TiiC  IGR  ( I I ) - TBC16R  ( I ) ) * TBDT  I n/TNDTMS  j 

GOTO  999  ^ I 

^ 3 

A 4 

11  CONTiN^E  _ 1 

C«***#  CHECK  TO  SEE  IF  UPShqFT  CONDITIONS  EXIST  ' ' 

^ 5 
^ 6 

~7IT~rrTrN  .GT.  GpmAX(I)  .or.  (T9IN  .GT.  GRMAxCR(I)  .and.  TMAX.G'i.  1 

C SSTORQ+1 . ) ) GOTO  50  i 

4? 
4 8 

I TETmpTT-  1 _ 1 

Gv»«*.  CHECK  TO  SEE  IF  WE  ARE  IN  LOa  ALREADY  1 

4 9 
50 

Tf-  (ITEMP  .LE.  C)  goto  90  ! 

C*****  CHECK  TO  SEE  IF  DOWNSHIFT  CONDITIONS  EXIST  ! 

51 

52 

IP  (T9IN  .LT.  GRMIn(I))  GOTO  60  i 

C»***»  N0  SHIFTING  during  THIS  ITERATION  ! 

55 

QD  Nyp  T = 0 

58 


I 

CJS  Sl^.'LATieN  PROGpAM  hate 

— 5^1 

55;  50  CeNTlvuE 

^56  : C ■ uPSThTF  t 

57:  ISHIFT=ICL0CK 

' 5b:  TliO  161  = 1+1 

59;  uO\srT=i 

'"FT:  G0T?  S5  ^ ^ : 

61  : 60  C9NTIK'UE 

' 62:  C D95r>vSTrrFT  ^ ^ 

63;  13HIFT=1CL9CK 

6V1  TT3T6 1 = 1-1  . ■ : ^ ^ 

65;  uo\sft=-i 

’BT  GOT  u 53 

67:  90  cgntimuf  ' 

'-F?r:  T3 0 T 3- =TFaGR  f I ) ^ ^ 

69:  GOTO  999 

— TTP. OD-CG^rriXETE ^ : 

71 : T5315P=TdCl6R( I ) 

~7FT 993'  COM  IVOI ; ^ — 

73:  TA2N=T91N»T6blGR  / 

— 75-: — RcTukf; : ^ ^ ^ 

75;  END 


3.3.7  Subroutine  to  Initialize  Maps  and  Tables 


INICON 


SUBROUTINE  NAME:  INICON 

TYPE  OF  SUBROUTINE:  INITIALIZATION 

DESCRIPTION:  This  subroutine  reads  in  maps  and  tables 

needed  by  the  system  computation  routines. 

It  reads  in  all  constants  that  are  required 
and  calculates  other  constants  as  necessary. 
It  also  calculates  acceleration  limits  o£ 
the  vehicle,  accounting  for  weight  transfer. 
EQUATIONS:  Maximum  vehicle  acceleration  accounting  for 

weight  transfer  without  tire  slippage: 

^MAX  " ^M  ^DR  *'^B  ■ ^MIN  ^ 

Maximum  vehicle  acceleration  with  tires 
slipping : 

^MAXS  " ^s  ^DR  ^^0  ’ ^MIN  ^ 


INPUT  VARIABLES: 

S/L 

OUTPUT  VARIABLES: 

S/L 

OTHER  VARIABLES: 

N/A 

PROGRAM  VARIABLES: 

N/A 

FLOW  CHART: 

N/A 
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P'JS  5l‘^JLATI8N  PRRGPAM 


T 

c 

3 

4 
D 
6 

— 7 
8 

10 
"TT 
1?. 
TJ 
I'* 
1 0 
16 
IT 
18 
T5- 
^C 

■er 


DA' 


c- 


-j- sjJo^^T  I n_f: 
“ * “ r\«R»f<ADT'‘'E 
SUBROUTINE 


****  IN  ICON  •*** 

TO  Initialize  maps 


S/A/74 

INICON 

/AKCES3/  ACLOADf 1 0 ) > P I DLM I N/ pTdLMAX 


C0MN[.>n  /AIR/  AVIB,  AVIR,  avIOi  AV1S>  AVIM 


COMMON  /S3EAR/  BURT  10 
common  /CROGCOR/  Vr^lN(2),PMAX(E)/VlNT(P>/NDlM(?') 
fi  M E'N  T / COM  M ( 2 6 ') 

COMMON  /COImTR‘'L/  GAlr;/DELMIN,NVEPA^  IVEPA(685) 
TUSS-D/  TSInVIIO')  ■ 


CTTmO 


COMMON  /EngIN/SCALEP,  Tni.E/FVS^TS 


COM‘',«N  /SAG/  '^UEL^T 

common  /GEAREP/  TBCIGI (iCiA)/ IBCIGI (loi 
C 0 / TEl  Rl  I a / p:'1  E / r i e i‘n  V 

common  /LOCRER/  TlML0CK»SRNEw,TRNEW,TROLD>SReLri 
XT3’=^^7-  7WC  <T7"~ArCL  Oi:  KTDmrBTK 
common  /L0C<2/  ACCRUIS 


COMMijn  /,'ASS/  Vv  I up-:  / VV  I 1 CG  / VV  I IRE  / VV  I M I i VVJ  25r,  \/V  i Mi  vvi  MDR> 
VVI SWB, VV I Shi VVI AMXy  VVI AS 
/PNltT^rETT^TV  rJCT'rfVIEJT  i^'TlTRl^TTV'nTw 
COM'^Or.  /PRNT/  I OUT,  I PRNTi  LQADE0>  MAXL  IN 
TO  'T-o  T7-ypr[yi:TT7-^  v"irR  ni"6i  " 

COMMQN/?Gf?T  ; 0/  T8I1GR 


2P 

-23 

2 A 


CO 

26 


COMMON  /SPTIMr/  TbDTMS/TBDTH 

common  /Shifter/  grmax ( 3 ) , gpmini 3) /GRmaxcr ( 3 ) 


27 

28 


29 

or 


common  /STEADY/  EPS 

y M-^ON  /TGRTI^/  TBC1GR(  1 0 ) ,GR1 

COM-'Gf;  /TIRE/  VVIDRR,  Vvi’PUM,  VVIPUSa  VVI  ICF 

COMy^Q.^yy  I Mg  I / Qy  


3 1 
3£ 
33 

35 

A 


COMMon/TUC/  AaAY(20/3) 


100 

_L"JL 

102 

1 03 


POR-^AT  ( 1 1 17/617  ) 

<_PPJ  ‘*1 

P 3R-'AT  ( 16  15  ) 
FORMAT! 1015) 


_3  8 
39 
AC 


41 

A? 


lOA 

1 05 
f06 
107 
ICS' 


POR 
FOR 
■p  O'R 
_F_0_R 
F OR 
FOR 


"AT (8E10.3) 
mat ( S I 10 ) 


■AT ( I6P5. 1 ) 
■AT(5E1 1 .5) 


For 

for 

TB'R' 

FOR 


■■AT  ( lOi  1 ) 
'AT  { 1 2Pa.  1 ) 


A A 
to 
A A, 

-37 

U 7 


1 i ^ 

n 1 
"1122 
?ro 


'■"at  ( 13A6/13A6) 
"AT ( 1316 ) 


■AT(P1C.6) 
■AT(y,llI7/6I7) 
'AT  ( X>  2'0  Ta  ) 

'AT  (>'/  1615) 


u j 

50 

51 
5c 


c m3  T 0 R ' 
20 A FOR^ 
205~TOR' 
206  FOR' 


iaT  ( X/  101  5 ) 
AT(x,82 -O^S) 


AT (X> 81 10) 

AT (X/  16P5. 1 ) 

rATTx,5Ell  .S') 


;j  6 

57_ 

59 


b?j 
_61 
6? 
6'i 
6 ' 
65 

D 

67 

6 9 

7 9 
71 

"7T 

12 

"75 

75 

"767 

77 


C 


"C-- 


78 
79_ 
8 0 
81_ 
'8? 
_«3_ 
S'* 
85_ 
8 6 
_S7_ 
88 
3' 


C 


9C 

91 

52 

93 

94 

95 


96 

97 

“ 978 
_95_ 
‘IOC 
101 


L "J  0^2 

2‘C  8 Ft  5 A f '(  ;.6>  1 0 I 1 I 

20"^  ff'RXAT  ( 12T6. 1 ) > 

2 1 0 r ‘j  ‘I  A T ( '/  ^ 13  A 6/1  3 A6  ) 

£11  rOR'".AT(l3!6) 

■£  Y2  TirR'^'Atl  r 10 . 6 ) 

'17  0 TO  T (Fn  0.3) 

1 30  FOR^•AT  ( IMl  ) ■ ' 

rRi7r7‘3  0 ^ “ 

R5AD  lir,/CO‘''M  ' ■ ' 

1 OTT'-f'^  ^ 

R5A9  120/ VV!‘A!/ VVlPOR/WiM^WlMOR 
~P'A'T"T^I7‘D5  V '/  ri  F VV  I ? 6 R i vy  I h;  v 7'l  '-'DR 
£N‘3IN7  I:j£a57,I  Ay  MAX  TOrOUL"  y MAx-^V  AC  , E^IGi^E  SfALF  FAfTORylDLE  SETT 
R E'A 9 1 C ^ y R 1 2 ;T P.  a X y S C A'LE  E‘y"7 “I  D‘l  E7R  I' D 'L M 1 N , P T D L MAX 
PR  I .'vT  20Ay  R ! E yT'-AXySCALEPyTlDLEyPlDLMlNyplDl'.MAx 
A CTCE"3  S 5 7 Y L 5 A D 
READ  IGAyACLGAO 
7 7TTu  T ■(  i U P ”)  A CHTC  A D ' 

PRINT  EOAyACLOAD 

-?7A7~r E "DEr  r J iTTFre r"c rtts^co prTtAT'rfl'N  : 

Rr.  AD  1 GA  y V:-',  I N ( 1 ) y Pr'.AX  ( 1 ) y V I'-T  ( 1 ) 

■RrAD  ■ 175  y V7  I R ( 21 5 PFA  X ( 2 r,  V pi  tT2  ) " 

0'OTPUT(103)  'V'1!v.'(  n y E T r ' , 

PRIM  2v''Ay  v^<  ri  ( 1 )yp^'AX(  1 )y  VIM  ( 1 ) 

6UT_^0T  ( 1 0?_)_  ' VM]  R ( 2_)^  ElCj 

P'R  1 NT  TfjA  y yP  1 ,N  ( 2 ) y P'-- AxT?')  y V I ImT  ( 2 ) 

?•.  D PM  n =_(_P  y AX  (_1  M V T_N  ( 1 )J  /y  I M ( 1 

\DTM-p  ( p.,r,_  y~^  _ ^/r-j  - ^ ^ j - / - y p--  ^ j ^ ^ 

gear  INDEX  AS  A function  OF  DRIVE  SHAFT  SPEED  FN'GlNiP  VACUUM 

05  5C  N = 1 y 1 0 

7 B^yG  R ( '1 ) J2Q,. 

■5  0“C3MrvUE“  ' ” 

READ  lORyNGEAR 
■■“Djt>UT(“l‘08)  "'NGEAiY'' 

^R I N T 2o3y \GE  AR 

N3M1  =\3"r  AK*2-3 

---  P9LV\3MAL  index  For  calculating  gear  EEFICIENCY 

OUpPjl  ( rO«T‘‘' TBCIGI  ( ly  J)  '■ 

, DC  90  JMyA 

READ  rG'7;'rtL'Cl  3 I ( l y J ) y I = 1 y fO) 

PR  I N'T  207  y ( TEC  IG!  ( I y J ) y J = ly  10  ) ^ 

30  C 5 \ T I \ J E 

■ VL_ _J i: ,71  c ; ency  index ^ 

R E A D 1 0 8 y 1 15  C 1 G I 
OUTPUT  (108)  'IBCIGP' 

P‘R  I NT  '20'8yTBClG‘l 
GEAR  RATIOS 

read  lJ-,y  (T"-C1GR(  J)y  JrlyKGEAR) 

OUTPUT ' 108 ) ' T3C1GR ( J)  ' 

■p"RTNT  205  y (‘iBC'rGTri  J )7j  = ly'N‘GEAR  )‘ 

READ  ll?y  DGRTIO 

9‘DTP'D 'T'Tro'P ) ■'‘Be VPiTPSE AR““R ATr8““B‘G'R TTM 
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■njs  sl^'JLATiesi  PROGRAM ntTf 


107 
1 Co 

P=5J\T  ll2iB5RTIQ 

C P'RST  oL'AR  RATir-,  0-5^/.:^  KPMPM  RF  TeRQUF  COUVT.  VfiRDINE*  PGl.AR 

IC3 

lie 

C 5F  TRA\S.  GEARS<  LENGTH  f:F  SHIFT/  TIME  BETi*EEN  SHIFTS 

READ  104/  GRI/TVIJCT/TVIJTR/TBDTMS/TBDTH 

111 
1 12 

5JTPUT(103)  'jRl/  etc 

PRINT  POA/GRI'TvIJCT/TVIjTR/TBDTMB/TBOTH 

11'^ 

11^ 

ll5r 

116 

REAR  AXLl  ratio.  POLAR  “GHENT  OF  FEAR  AXLE  GEARS 

READ  104/  T?1  IGR/TVIJRA 

SnTPUTTfDS)  'T8IiGR>  ETC 
PRINT  2C4,T8I IGR/TVIJRA 

1 1 f 
1 1 5 

C rrRr^TCrNG^'ADTiJS/ C8EFF  • of  max  tire  friction,  sliding  cbeff,  bf 

C tire  FRICTIO'w  tire  CDULBMBIC  FRICTI0N  CBEFf,,  PRLAR  MOMENT  OF 

iiy 

120 

C"””""iIRc3  a [\ D w E F L S 

READ  104/  VVIDRR/ VVIFLM/ VVIFUS/ VVi ICF/TViJTw 

1 c:  1 
122 

3T;TPUTTTCrs-)~TT7VTDTrF?7“ETC'' 

PRINT  204/ VVIDRR/ VVIFUM/ WlFuS/ VVI  ICF/TVUTW 

123 

I?-* 

’-r~  - - -“DRIVE  aMAFT~3-^^ZrT0~7;Tr"A“ruN  Cl  O N CP^VEHICLE  SP  e f d 
READ  ICP/Tsr.'V 

1 r:  'J 
12^ 

wJlr’uT(lGE)  'ToIinVi 
PRINT  209/TSI  'JV 

lc> 

12^ 

C 1 Ni^RT  I AL  13T  V^THicLE/PRUNTAL  AREA/BRARE  CPNJT  A NT  / DRAG  G0£F"F,/ 

C vehicle  MASS/R3LLING  FRIfTION  CBEFF , / MASS ' 0N  DRIVE  WHEELS 

T2' 

13". 

k-AD  104/ WITTP.  , VVI  1 CD/  VVI  l‘'F 
OJTPJT  (lOF)  ' VV  I LF~ / VVI : CD/ VV I IFP 1 

131 

152 

P-<INT  104/  W ILFA/ VV  I ICD/ VVI  IRF 

C WuELl  base,  Mri'.uiT  r-r  V'mICLE  CENTER  PF  GRAVITY.  Pn'iFI  WEICmT 

13  3 
13'i 

READ  1C4/  VVirw.B/VVlSM/FuELWT 
OUTPUT  (108)  'VVISNB/  ETC 

1 55 
135 

PRINT  204/VVlS^F'/ VVISH/EuELWT 

C air  PFEPSLIRL/  air  TE’-P/  gain  E0R  VEDYN/  AUTn  DRIVER  MIN.  LEAD  TIMF 

137 

13? 

'\L  A j 104/ Av  IB/AVIR/GAIN/CElMIN 
OUTPUT  (ICS)  'AVIB/  ETC 

133 

140 

PR  I N'T  204  / AV  I -3/  A V I R / GA,  I N/  DELHI  N 
read  10=^/  10UT.  IPRNT/LT  ADEQ 

14  1 
14? 

OUTPUT  (108)  'I5UT/  ETC 
PRINT  ?C5/  CUT/  IPRNT/LOAOEC 

1h3 

144 

C DRIVESpaFt  resistive  T0ROUE  ROAD  LOAD  DATA 

READ  106/TvICRL 

IT^ 

146 

eUTPUT(108)  'TVICRll' 
PRINT  206/TVICRL 

l47 

14? 

C time  increment 

read  11?/  DT 

l4? 

15C 

•JUTP^TdOB)  'DT' 
PRI'-IT  212/DT 

151 

152 

READ  104/ AvrJ/ AVIS 
0UTPUT  ( 108 )AVI0/ AVIS 

153 

15  4 

113  format  (4F10*5/P10.7) 

READ  1 13/ (GRMAX( I ) / I =1/ 3) 

155 

156 

OUTPUT  (108)'GrMAX  ' 

PR  I N'T  1 13/  ( GRMAX(  1)  / 1=1/  3) 

157 

158 

O'UTRUT  (108)  'GRMAXCR  CRUISE)' 
read  113/  (G'V'-'XCRI  I ) / 1 = ] ,3) 

rsy 

PRINT  113/  (GR"AXCR( 1 )/ I =1/3) 
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E JS  S!^JLATI9N  . pA 


161 

5ur-JT  (1C8)  1-3' 

5EA3  117,  ( O’-T'  I ( I ) . I = 1 , 3 ) 

162 

163 

P;^r>T  113,  (GR'^lOd  ) / I=d3) 
999  cPMTI'-;UE 

16^ 

165 

HUTPuT  (103)  'ALLIS3K  TL'ST  DATA' 

8'JTPUT  (ICS)  'SPPED  RAT  I n "TORDUE  R A T I 6 *ONE/<  . *?  ' 

i 6 b 

D 5 £.0,1  = 1,20 

167 

500  FCR'-'AT  (EFlO.'i^/FlO.S) 

f6  8 

READ  50Gy  ( A .v  4 Y { I , J ) , J = 1 , 3 > 

169 

PRI;-JT  5C0^  (AWAY(  1/ J)iJ=l,3) 

'T7C 

2D  Cu \ T 1 'v)uE 

1 71 

AOO  FOR^^AT  (8F10»5) 

1 7 2 

R ii  A 0 A ».  0 ^ S R - v-i'  / 1 R l\  E ^ , S ^ 6 L D / T R 0 L D * T I tTL  R C K 

173 

PRINT  AOO^  SRNE'-.OTRNEwi6R0LC/TR9L0>TlYLeCK 

1 

— RTAD  A00“/  AXCCeCK/DFTLyrK 

175 

print  AOOi  ACCLECK, DECL9CK 

176 

Rr.AD  ACO/TcCROTB 

177 

O'JTPuT  (If  A)  ACCRUIS 

17c 

7 ] A : '.  ■/  = VV  fF  l'F  ^ v'v  d‘L,'^  • VV  : S.NC/(  VVir-«  ( VVI3.'.3”VvlFu'-^*Vvi  SH  ) ) 

179 

VV  I AS  = v'V  I Pus  » vy  I y,DR  * VV  I SwB/  ( V V I M*  ( VV  I Si-.B  - VV  i FUS  * V V i SH  ) ) 

1 £5  U 

ISl 

R IE  I NV  = 60*32-  1739/ ( 2 . *3 . 1^159*RIE  ) 

1 be 

L-~~“  h;-iU'>S  KER  second 

1 c 3 

C calculate  air  density 

16^ 

AV  !■;  = ?.  7029  12  ‘AVId/(A59.67  + AVIR) 

165 

C LINES  PER  PAGE 

16  6 

RAXl  IN  = A8 

1 c7 

r----  ENGI’-.E  STAidi  ITY  C?L':PARAT0R 

1 6S 

CPS-IC-O 

1 5 9 

T’LAy  = tkax*scai.EF 

150 

R E T U R 

191 

end 

! 


il 

I' 


I' 

♦' 
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3.3.8  Initialization  after  Engine  Reaches  Steady  State  - INIGER 


SUBROUTINE  NAME:  INIGER 

TYPE  OF  SUBROUTINE:  Initialization 

DESCRIPTION:  This  subroutine  initializes  all  dynamic  var- 

iables which  are  not  initialized  in  INIVAR. 
The  subroutine  is  called  after  the  engine  has 
reached  a steady  state  speed  before  the  driv- 
ing cycle  begins.  This  subroutine  then  puts 
the  bus  into  first  gear. 

MODELING:  N/A 

EQUATIONS:  N/A 

INPUT  VARIABLES:  S/L 

OUTPUT  VARIABLES:  S/L 

OTHER  VARIABLES:  N/A 

PROGRAM  VARIABLES:  N/A 

FLOW  CHART:  N/A 
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I --^;.'LAT  rj:-J 


■ J D 

3 ; 
4 : 


6 : 

TV 

c.  ! 

. s^r 
10: 
~iTr 
15: 
— rTr 

1 A : 

■~r5:“ 

16: 
~ixr 
is: 
Y3T* 
20 : 
^ZTT 
22: 
c j : 

2 4 ; 

Eb : 

2 6 : 

■ 27: 

_ 

2 3 : 


52 

3 3 

34 


3 7 
? 4’ 
”33 
40 

4 2 
4 3 
4 4 
‘45” 
4 6 
*t7” 
4 S 
43 

50 

51 

52 


^ **•*  IM3e;r  **** 

.Ay* PACP'f?/  i^oic*  la.or<.TiHE  

C ! I CL5K  1 / f Li.:  1 L5  , T9  I Iv  / t SON  j T OJ'A/  TO  I 1 Ofw  V VO  S / v VO  A # VVOO 
C ^FUELE/ENISF,E‘-ISE  / ITICYC,  ISHIPT,  IGEAR^WHLOLOj 
CVVO”=Tj  ,OELTATYts  rC/ T3  I iAloCkT 

CNLI\£,lCYCLE/NOieLDiNOI/TBt'lGR/TBOlGi>PAOFF^O.*VV6AO 
C > VV[;?C.  I SEO-7  I FOXi  TiNKAvr,  T 1>'AVG»  T I MlENi  NLT  ^ NOT,  VPpAi 
C 5o/T90C.»VVOFjVVDFB2/TVlKJ/TAOCi 

“““c-TcreKoi  ^ ^ 

THIS  subpo’jtine  Initializes  variable  to  start  the  cycle 
n iYnzs  T''Jir  ,\4_'t  ( 2 ) i ng  t ( 2 > 

D I HENS  le.N  I f>Dx  ( 20;.  20 ) 

uTf.r  NSU'N  T I "'-'AX  (5)  / T INLENCo)  / TIMAVG(5) 

Cf;M‘-‘3N  /TGRTIT/  THClGRnolyORl 

ro’''Torr/PG^rTTi3V“T’8TYC“R 

CONMO\  /MAPS/  ’^'APlyMAP3 
urrYETTSTPNnYYFlTYS  YITT/M  A p’37TT7T71 
C^’Y'ON  /SETIf'^:/  ToDTMS/ TFjDTH 
CUY^tj.N  /HRnT/“IOUT/  1 PFLnT  , LOADEQ / M a X u I N 
LOCX^^O 

TvDTirFII 

iclock=o 

TTYE'^O 

ICLOXC--  ( lOUT-^l  ) 

1ClOK1=0 
T5SlEr= .93 
T 9 I'n  = 0 

TSON=o 
T3”9N  = 0 

T9I iGP^TSIiqR 

VVQS=0 

VV9A=0 

'VV0D=0 

FUEL  0_ 1 ; 

ENISF=”0 

EM] SE  = 0 

I ticyc=o 

1SHIFT=-TBDTH>1 
rG‘E"AR  =‘o 

WHL0L0  = 0 

NL 1 NE=MAXL I N+5 

ICYCLE^C 

No  I (3LD=  1 
N3I=1 

ra”01GR  = GRl 
TB91GI =1 
■pX0FRb=b 
VV3 A0=0 
VVOSO=0 
ISE0=0 

DO  rc  1=1/20 
DO  5 J=l/20 

rpcorriYjT^o  ~ 


ni: 
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BUS 

3 I ‘"iJl.  AT  I e*^  PP'-iGPAM 

DATE 

5^ 

5 CONTIUJE 

5B 

1C  CCNT^’UE 

■ 56 
57 

DO  15  1=1/5 
TlM"^Ay(I)=o 

" 5S 
59 

TIV,aVo(  I )=0 
T I ) =0 

O 

13  CUN  1 . • 

61 

NLT(1)=0 

' 62 
63 

NLT{2)=0 
NGT ( 1 ) =0 

■ b'* 

NGI(c)=C 

65 

CALL  BIXeN2?{PAfiN/3ST0RQ,PAPFR/MAP3) 

6o 

67 

U''uL  (TA'.‘C/lwLlur\/''’r. f-'lLr/Tp!'JlGI/T9lN<T9IC) 

CALL  FAEFF  ( t9  IC/ 191*'./ t9I  IGR/ T9eC/ t9I  1 ) 

6fa 

69 

C«UL  VEDYnI  TdEIoI  / VV‘0S/'T3S/T9T3C/  TBD'1Gr7T9TiGR,  VV/OA 
C / WGF  / t9I  1/  VVDFBR/  VVDMI  / DELTAT  / W0AO/ 

70 

L I V I ‘•TJT 

71 

PA3PRC=PAHFR 

/c 

V \/  Ij?  A = Q « 

73 

VV0A0=VV8A 

VTP'AnO 

75 

return; 

76 

tL\C 
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3.3.9  Initialize  Engine  Variables  - INIVAR 


SUBROUTINE  NAME:  INIVAR 

TYPE  OF  SUBROUTINE:  Initialization 

DESCRIPTION:  This  subroutine  initializes  those  variables 

necessary  for  the  engine  calculations.  When 
the  engine  reaches  a steady  state  speed  with 
the  vehicle  at  rest,  INIGER  initializes  all 
other  variables. 

MODELING:  N/A 

EQUATIONS:  Initial  Engine  Acceleration: 

^^E  " *''^SS  ’ "^A  ’ '^E^^'^E 
INPUT  VARIABLES:  S/L 

OUTPUT  VARIABLES:  S/L 

OTHER  VARIABLES:  N/A 

PROGRAM  VARIABLES:  N/A 

FLOW  CHART:  S/L 
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D'JS  S 1 T 9‘>i  PRPGf?AM 


■5 

6 

T 

E 


10 

IT 

4 O 


1 j 

I'* 


IT 

16 


7T 


• «««  INI  VAR  **•» 

SUBRQUT  I NE  INIVaR  (BFORC  E / L OCK^  UpjjSFT  / T T CLRC><  i ICLPKl 

C t I :jHIF  I /NRc.Ci::p,  / T'JfllCiRijIioioI  ^NGI  /‘'■GlfJLD/  ICYLN0»VV3A/VAi\AL.G/ 
c -IP^-!LI^ , H PRAX‘ ' , -^PTR  ANH,,,ptqCM/  HPENGf''iHpWHlP«  hPRAX^^MPTRANP, 

c hptc'CP/mpeng'p^h'^'acc/  " ' ■ 

C ACT3PG,Pa3C/  pP'--RCFM^pi:;-,le,  

C 1AGitR/TAI i5R/pA0C>  ~ 

C Tl  f-M.AX  / T IMLEN  / T I YAVG/PAt',N,  BAONi  SSTDRQ,  TA0N,  ESneVo/ VAR  ) 

*****  rNHAirZES  var'iaTlps  at^st'art  of  Run 

^ Y'FNS  I ON  J^I  N^AX  (_5_)  » T IJYLEN  ( 5 ) / T I MAVG  ( 5 ) / VAR  ( g ) . 

C^yT5  E / E f Q i N / SCALE  F / T I G L ETE  V3  / T S 
/INEW-TIA/  RIE/RIEINV 
C:i •-■'■■■■■■;%  /.•TTTPS/'  ‘".AP'ijPAP3  ~~ 

D I PENG  ION  ViAPl  ( 55i  17  ) /MAP3  ( 17<  17  ) 

GEGr^'/TEO  R TTO  ^ 

hPWPL^-  = HPR  A X'-1  = HP  TRA\M  = HPtOCP  = HPENGM  = HPWHLP  = p'PR A XP  = HPTRANP  = 

C nT^TI^CP^TfPTTTGP  = hPACr^O  • 0 

BFgRCE=PFnpcE'^  = 0. 



UDNSFT=0 

TTP  EKi ^ 

ICLPCK=0 

rcLPr<‘i  =-o 


luj 


E5 

?A 

27 


I SH I FT  =0 

TS  = ICO^TIDLE 

NREC=C 

BS  = 0 


2? 

29 

31 

3? 


T301 GR=0 
TB31GI=0 

N3I  xQ 

N2I  ;'ld  = o 
1 CYENn=n 


33 
3A 
35 
3 6 
3 7 
38 
'39 


VV3 A=Q. 

vanalg=o 

D O'-Q  1 = i / 5 

TIPVAXI I )=0 

T l:-1AVG(  I ) =0 
5 continue 
PA3N=900* 


‘tO 

'hY 


AL 

‘t3 


4 “• 

AS 

■',6 

A'7 


'C 


A A 


A9 


BAONrPAON/BGRT IB 

call  RIX0N2  (Pa'ON<  SSfORO^  PAPl  ) 

SST0RG  = 53TQRG«GCALF,F 

TAg,N  = c 

Yi-  _I -l^YV. ( _L  A-AlA F_/  3 G T G RQ/  ACTORQi  T ABlTR, 

TA  flSR/ TAG'J>  BAONiBAO’c/tAOc') 

£A L_L_  A CCESS  ( P A C T 0 R 0 ) 

E rco  0 T 0 = ( G S T 0 R 3 2 A c TOR  0 - P Yfi'C  ) R I E I N V 

VAR ( 2 ) - 60. 

R L T U R N 

END  
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3.3.10  Integrate  System  Variables  - INTGRT 


SUBROUTINE  NAME:  INTGRT 

TYPE  OF  SUBROUTINE:  System  Computation 

DESCRIPTION:  This  subroutine  integrates  vehicle  acceler- 

ation, vehicle  speed  and  fuel  rate  to  get 
vehicle  velocity,  distance  traveled  and  fuel 
expended  respectively. 

MODELING:  A second  order  integration  sheme  is  used. 

EQUATION:  (Typical)  V = V + (A^  + A)  • (AT)/2 


INPUT  VARIABLES:  ICLOCK  - 

ICLOKl  - 
WOS 
VVOD 
FUELE  - 
VVOA 
PAOFR  - 
WOAO  - 
PAOFRO  - 

OUTPUT  VARIABLES:  WOS 

WOD 
FUELE  - 
WOAO  - 

WOSO  - 
PAOFRO  - 
ICLOKl  - 


Value  of  System  clock 

Last  value  of  system  clock 

Last  vehicle  speed 

Last  distance  traveled 

Fuel  expended 

New  vehicle  acceleration 

New  fuel  rate 

Old  vehicle  acceleration 

Old  fuel  rate 

New  velocity 

New  distance 

New  fuel  consumed 

Old  acceleration  for  next 
iteration 

Old  speed  for  next  iteration 
Old  fuel  rate  for  next  iteration 
Current  value  of  system  clock 
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BUS  ST^^ULATIOM  PF-^^GRAH 

15*  TGKT*-*** 

?;  S'JS^OUT  I KE  CLG  K 1 ^ KT  1 »"EPy  WPS, 

3;  C VVPAi  VVGAD/ VVes’o^PAe’FR*  VVaD/FUELf./PAeFRO) 

a;  €*•***  this  S 'JBPQL'T  IK  E I iMEGRAT  ES  the  PP6GRAK  VARlABfER 

5;  C2M'^0k/t  irE  I / DT  ' ' 

6:  NTI MEP= ICL9CK 

T]  deltas  (M  1 :^,EP- ICLGkI  )»DT*t5 

8:  SPEED 

51  WD'ST- vV8S+  ( VVPAO  + VV 3A  ) «DELTA 

10!  * 

ITT~C****'^THI  3 IS  rET~A“SSljRT~u3'~T'HA  T TFTe  BuS  W I L L~^fO  P AT  vTry  L6W  SPE 
12;  IF  (VVOA  .LE.  0 .And.  wbs  *LT.  .1  )VVPS  = VVQa=0.0 

— nrr-v 

m-,  distance 

rsi  woo  = VVPIT+T7VipsrO+W5  ^ : 

16:  Fuel 

m rjruE=FUEUEr^TT’7IFFT^'O^T0'FTrriO'EXT'A73^O151 : 

18;  vvoao  = woa 

T5T  v'TToCTWV&S 

2o:  PAePKo=PAeFR 

rn"  ircox  1TN7 1 

22:  return 

E'Tl  E7ID 
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3.3.11  Terminate  Subroutine  - JPBSUM 


SUBROUTINE  NAME:  JPBSUM 

TYPE  OF  SUBROUTINE:  Output 

DESCRIPTION:  This  subroutine  prints  out  a summary  of  the 

run,  including  the  joint  probability  dis- 
tribution, the  gas  mileage,  total  distance 
traveled,  and  power  used. 

MODELING:  N/A 

EQUATIONS:  N/A 

INPUT  VARIABLES:  S/L 

OUTPUT  VARIABLES:  S/L 

OTHER  VARIABLES:  N/A 

PROGRAM  VARIABLES:  N/A 

FLOW  CHART:  S/L 
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rjJS  Sl^'JLAT  rOM  PROGRAM 

i;  * JP3SUM  *»*» 

2: 3J3_^3UTj_;;iE  ja=’S'.iM(  jpcx:^  iCYCLE/KLT^NGT,  VVaPyFUErF.MPWHLPj 

3;  C HP^'HLMy  HPRAXP/MPRAXM,Ht-'fKANP/HPfpANM/HPTGCP/ 

a:  C HPT2c;>i,HPE\GP>PPF\3r':,HPACCiTIME/ 

'5:  C xriTni/XlS^TGRi  X>AOC/ XAClnp;  XTA8C/ XT3IC,XT9Gr.^GFAR 

6.:  C »X?Bi-iP.ACr--.P,FLYl’P>C8fv;p,DRSi-(P/PAXMP) 

; : L *«■»■«•  » 1HI3  ojuRe^'llNE  OjTPUTi  TO  The  LUvE  printer  the  PRObABlLlTY 

DEfviSiTY  I NFOPMATI  0\'>  THE  MILEAGE  I\FORMATI0N  A'-JH  THE  TORQUE  TAi 
5:  C*»'-»*'7F  THE  'First  lAO  SECONIQS 
lo;  DIMENGlr-M  SU'^  J ( PC  ) > X ( 225  ) / nGT  ( 2 ) a KLT  ( 2 ) 

11  : FrAFTsl'AN  IFDX(20/20) 

12  : C I'^ERS  I "N  X'T  I YE  ( 140  ) /XSPTPR  ( 1 <40  ) / YPAOC  ( 1^0  ) , XArTfiP  { lAO  ) 

m UT^rFsl'<iQ  xTA'jC(l43  ) , XTCICI  l40)  / Xt3  ;-c  { i aq  ) ^GLA^-^(140) 

1A:  D I ‘■'E  us  I on  X03HP  ( 140  ) i ACCHP  ( 1 40)  ^ FLYHP  ( lAO  ) /CONHP  ( 140  ) 

IF,’  D TT'ETTbT'f'TFORF’TP  (T4'o  ) /Paxh'P  ( 1 40  ) 

16:  co:-r^oN  /gpd/  i speed  i 20 ' 

ITT  FF’rMTiTsFPCRI-bC'AF/  Vm  I n ( 2 TF/MAx  ( 2 ) /V I NT  ( 2 ) a ND  I M ( ? ) 

is:  C0Y‘-su  /Gas/  puelxt 

if;  /bT'TpT^ER/  ns 1 0 

20 : c teryi'vAtiou  Subroutine 

ETFTZT-*"  ►"'^~'^TT'rFFuDsoF”r77‘;  ' 

22:  C R*R*RADTKE  3/5/74 

FjT  '2CC”TTTR"^ATTrFTr;  4 0X>  36H  JO'I'NT'TROSAB  1 L I fY~  OF  MS  ITY  (Prf7"^NT 

IGQ  Fr-R-^AT  ( /<  f PCXy  1 3A6  ) ) 

23:  ZCi  E UR'^AT  ( /// 39X/ 43HENG  ] NE  STEADY  STATE  TORQUE  VS,  FNGINE  SPEED) 

2 6 J 20 2 F OR"at(  // 52X/ 15HSPEED  INtERVaLS  ) 

2t:  eoT'F^^R'-'at  ( ih  > 

2SJ ?C4_  FOR^j^  ^X,  ^I_^) 

■'2;0  : 20o  'E'ORHAf':  lX;feHT«RQUEi  //  1x7 GMINTERVALS  ) 

3h;  goo  PQR---AT  n X,  I 3,  1 H-,  I 3.  PQPA  . 2 ) 

oi;  207  F URYAT  ( // SX/  I 5^  3SH  'samples  Fe'LL  BELOW  THE  MINIMUM  TOROUE/ 

3?j 1 y.± L5_06h_sae:pll5_ exceeded  the  ma XI mum  Torque. 

33:  ? //5Xil5/37H  samples  FeXI  QLlOW  TiF  MINIMUM  SPFEDj 

34:  3 />5X/I5^35H  samples  EXCEEDED  THE  MAXIMUM  SPEED) 

"35:  2O'FT'0R'^A:f  ( IHl'/sXi  I7737H  I TERAT  I ONS  ToOk:  p'l  ACE  fi  VER  THE  CYCLE) 

?'■  : 203  FQR>^aT(SH  T0TAL5/2QE6.2) 

3'7l  2T2~T  ORMAT  ( 12X,  46hG\E  SAMPLE  TAKEN  DURING  EACH  PROGRAM.  ITERATION) 

3S:  PRINT  200 

: 5:  '“PRrNT' 201 

AC;  PRINT  202 

Fi:  P'RlNT  P'o^ 

42:  .Is=^EEr'(  1 ) =vMiN(2) 

43:  1NT=VINT(2) 

^■4:  .NL I m = kdiM(2  ) _ 

4"5:  DO"  5'  r=2/NLfM 

46:  ISPEED( I ) = ISPEED( I-13+PF[ 

47:  5'c'onTinue 

48;  N2=NDIM(2)-1  

49;  print  204/  ( IS-’LED{  I ),  1 = 1, N2) 

5C:  PRINT  204m  ISPEEO:  I )i  I=2>NlIM) 

51  : fFIN  T 2"03 

52:  I T0r:;i=vmin(  1 ) 

~ST, -rNT'^FMTl')'  ' 
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DATF 


r',  f;  I AT  I '' '■J  DaTF 

36 

57 

^i  = ^DIV(  1 )«1 

u 0 10  I = 1 / \ L I 

ic  50MJ(I)ro 

DO  ?c  1=1,K1 

b S 
59 

1 T0PC?= I TOkOI+IKT 
DO  15  J^1,K'? 

■*v 

0 V/ 
61 

X ( J ) = ri_r.„|  { ; ( I / j ) ) *l?o./Fuj  AT  ( I C rCLF  ) 

SJ’-1J(  J)=SUMJ(  J)+X(  j) 

6 c 

63 

Id  TDTTTI'4je 

PPT'JT  2n6,  ITOPGl,  IT0IC92,  ( X ( J ) , j = 1 , N2  ) 

6 

65 

I 1 3-<^l  = I 1 0(<:;2 
20  COXTI.vuF 

60 

67 

r'  ' J - 1 2 C)  5 
FPI^JT  203 

bHT 

69 

T^V-T  c CSTTSlTTU  ( J ) ^ JTl , 
PRI'-JT  203 

•J 

* 

/ i 

r •'  I .s  ; / I CYCLt 

PPP-'T  212 

/r. 

73 

6-  1 '-T  cC^/  ( \LT(  1 ) / \3T  ( I ) y 1^1721 
210  FOR‘'AT  ( ///y  1CX>  17m:-'IlES  PER  GAllON  = y F7 . 3 ) 

75 

F -J  '1 H 0 - (j  J r U c L T / 1-  iJ  E L E 
PRINT  2l0yFJNPG 

) 0 
77 

V;0'^>  ^'T'^AT  ; 1 0/,  1 7 ^GALLe\'S  FlR  PJLl=  /f-‘7t3) 

r w G T-  *'■  = 1 / r 1 ; ‘1  ^ G 

7£ 

7y 

PR  I N'T  5C5y  FUGPM 

507  F-^P-aT  ('+Cn'PO-ER  RECUIRFO  BV  THE  PEAR  AXLE  . F8 . 2 , 1 OX . F 3 . 2 ) 

so 

31 

506  FOrhat  ( //,  aOhP0,,Ea:  F^EOJIRED  BY  ThE  WHEEL 
C < E P . 2 y 1 0 X i F 8 • 2 ) 

S3 

<3 

508  format  (AOHPewER  REOUIRED  BY  THE  DRIVE  SHAFT  # FS . 2/ IQXy FS . 2 ) 

509  FOR'-'AT  ('+r,tiP9/ER  PEOUIRpR  BY  THE  TBRQuF  CflK'VFPTFR  / Fr,?,1CX/ 

8B 

C F 0 . 2 ) 

510  FOR-. AT  (40HP0WEK  REOylRED  BY  THE  EA'GIXF  FLYwHEE.r  i F8 . 2/  1 OX^  F8'.  2 ) 

8 6 
57 

511  FmRM'AT  (AChPO-.ER  REOUIRED  BY  THE  ACCESSORIES  ^ F8 . 2^  1 OXy  F 8 . 2 ) 

l'12  FOR'^ATfi.Qx  , p7hDR]V'E**^‘*■»**•♦■«■»■‘«^'*^'0T6RIMG  ) 

5 6 
.59 

riD  fpAMAt  (lCX//7/<  2bHRUM  i^R  OF  STOPS  PER  mTLF  = 
C / I 2 ) 

90 

91 

ol4  rCpRT-AT  ( ///,  40Xi  2ChH0r3EF0'.-.Er-SECBNDS  ) 

51b  FOP'', AT  (ADhPO^ER  LOST  T"'  BRAKES 

y2 

93 

C /18X/F8»2) 
PRINT  5l3y;.STBP 

9A 

9== 

print  211/VVbO 
PRINT  514 

96 

97 

Print  bi2 

PRINT  3C'6>  hPxhlP/ hpwhl'A 

Q y- 

59 

F-Rir.'T  bc7  y hpRAXP/ hPRAX'^ 

print  508  , HPTR ANP^ HPTRARM 

OG 
0 1 

PRINT  b09y  HPTOCP- RPTOCM 
PR  I NT  51  Cy  pPE''-GPi  HPENGM  ' 

G3 

03 

PRIN‘T  bll»HPACC 

211  FOR’-'AT(  lCX,5MDlSTAMCE  = iF7*4) 

0^ 

05 

PRINT  213 

213  FOR’VT  ( 1 fll , roX/ 2SHT0R0UF  VALUES  Iw  DRIVE  TR/UN) 

jfc 

PRINT  El'^ 
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r.Jf;  sI”ULATI^n  PR^GPAM 


— TTT 

214  Hi;^-AT(//,2EXi6hL!M3lNEH6X/  1 2HT  k AMSK  I SS  I 8N^  5X  / 9Mwr  AR  AXLE) 
PRINT  230 

IDh 

110 

230  POR‘"AT  ( //  33Xi  7H0YMa'^  I Ci  ?X>  7M'0  YN  AP  I C / 2X # 7HD  Y.N A^  l c . 3X j 7HDYNAKI  C ) 
PRINT  2l5 

111 

112 

215  FPRNAT  ( 5X/  4t!TINF  ^3y,  2HJ\'STANT  . > 4X,  4i-iACC  . / ^X,  8HP[ywHEEL/ 2X» 
lyHCONVENTER*  2X/  6HDR  ! VE-  . 3X/  Smk'EAR  AXLE«  6X>  4-^3EAR  ) 

113 
1 1'* 

PRINT  216 

216  F9RMAT  ( 13X,  6NENGINE>  4X/ AhTOROU'E/  4X/6HT0RGUE,  ‘♦X,  6wBUTPUT> 

115 

116 

1 4X/ 5H3HAFT/ 5X/ 6H0UTPUT ) 
PRINT  217 

~^ir 

ns. 

21/  TT:R-‘AT  ( iTBX/  or-lTGR CUE  > 2 4 X / 6HTQRQUE Hi X j 6HT0ROUE ^ 4 X j ahT ORGUE  ) 
1 TENP=T IME 

Hi.' 
12  0 

TF  (n:'E  .61*  14  0)  1TEKP=140 
D9  5gc  / I = H ITEP.P 

121 

122 

P^rpTE  ?-I-57xTTNt  ( I ) > XSSTf’RTTTi  XACToRTTTTxpTfDc  (Mi  XTA^CI  I )/ 
1XT9IC(  I )>XT?9C(  1 )iGEAR( I ) 

J c J 

b 'J  vj  L 9 N T 1 tj  t. 

^18  (7Flo.2^F9.0) 

IcO 

126 

"''INI  2 1 y 

219  P9RXAT ( IHI, 1 SX/ 32MHPR3EP0WER  VALUES  IN  DRIVE  TRAIN) 

12/ 
123 
TTT 
1 3D 

P-RTNT  2T4 
PRINT’ 230 

PRIM  2f5 
PRp  T 220 

131 

13c 

220  FORMAT ( 1 3 X , 6hEN0 I NE 4 6X/ 2hHP/ 8 XH2HHP, 6X, 6H0UTPUTi 4Xi 
1 5HS-IArT,  5X,  6HDUTPUT  ) 

133 
1 3‘* 

PRINT  221 
DO  501  l = n 1 TE"'p 

13n 

1 3 A 

221  FOR'^'AT  ( l5Xi  2HPP  / 6X>  4HlO.?SH5X^  2HHP/8Xi  2WHP>  8X/2HMp  ) 

PRINT  2l8,XTr'E(  I ),XGN|JP(  I )/ACCHP(  I ) Ml  YHP(  i ),r4M-iP(  i l/DRRHPf  f 

137 

138 

rRAX‘-’?(  1 )/GEAR(  I ) 
501  continue 

133 

no 

return 

END 

3.3.12  Converter  Lockup  - LOCKUP  and  LQCKCAL 


SUBROUTINE  NAMES:  LOCKUP  and  LOCKCAL 

TYPE  OF  SUBROUTINE:  System  Computation 

DESCRIPTION:  These  subroutines  simulate  the  effect  of 

the  torque  converter  lockup  process  by  cal- 
culating the  torque  ratio  and  speed  ratio 
of  the  torque  converter. 

MODELING:  This  routine  is  activated  if  the  vehicle  vel- 

ocity has  exceeded  a maximum  acceleration 
velocity  or  a maximum  cruising  velocity.  It 
is  activated  during  each  iteration  there- 
after until  the  vehicle  velocity  drops  below 
a minimum  for  the  lockup.  When  the  subrou- 
tine is  first  activated  it  calculates  the  con- 
verter's speed  ratio  and  torque  ratio  and 
changes  them  linearly  between  the  old  ratios 
and  the  lockup  ratios  over  1-1/2  second  per- 
iod. When  it  unlocks  it  follows  the  same 
process . 

INPUT  VARIABLES: 

VVOS  Vehicle  Velocity 

TIME 

INPUT  AND  OUTPUT  VARIABLES: 


LOCK 

Indicates  whether  torque  converter 
is  locking,  locked, or  unlocking 

TIME 

Time  of  run 

TAIISR 

Torque  converter  speed  ratio 

TAOLTR 

Torque  converter 
Torque  ratio 

CONSTANTS  IN  MEMORY: 
ACCLOCK 

DELOCK 

ACCRUE 


Speed  at  which  lockup  occurs  if 
accelerat ing 

Speed  at  which  you  unlock 

Speed  at  which  lockup  occurs  if 
cruis ing 
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CONSTANTS  IN  MEMORY 

(CONTINUED) 

TIMLOCK 

Length  o£  time  taken  to  lockup 

PROGRAM  VARIABLES: 

SRNEW 

Speed  ratio  when  locked  up 

TRNEW 

Torque  ratio  when  locked  up 

SROLD 

Speed  ratio  after  unlocking 

TROLD 

Torque  ratio  after  unlocking 

DELSR 

A speed  ratio 

DELTR 

A torque  ratio 

DONLOCK 

Time  lockup  is  complete 

TC490  LOCKUP  SCHEDULE 

WOT  LOCKUP  28  MPH 
CR  LOCK  21  MPH 
UNLOCK  9 MPH 
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JS  5 I ^;JLAT  J ON'  program 

0A‘ 

1 

* *<>*-»LDCKUP«-*** 

? 

3U5P0UT  I K'P  LOCKiiP  { WO  f, . T I ■^'E  / LO  CK  / T A I ISP,  TA01TR  ) 

3 

C ■»•»*•»<•  <t  1 H I 3 S U b R 0 U T I Ivi  r G J L L A T E 5 T E C 0 \'  V E R T E R L 6 C K I Ni  Ci  U S 

4 

IS  USED  AS  A FLAG  TO  SEE  JE  ARE  L0CrING(?) 

UNLOCKING  (3) 

5 

Ci.  ARE  already  locked  (1) 

6 

~T 

Crr^P'T3  5‘  /L0CK1/  A CCL 0 CK > D E CL 0 C K 

8 

COhOOM  /LOCKER/  T I MLOCK > SRNE W / TRkE Wi TROl.D/ SROLD 

9 

* 

10 

GO  TO  (2^100^200/300)  LOCK+1 

il 

c CTO^TIN'JE 

12 

LOCKUP 

I'i 

nroTK  = 2 . 

14 

call  LOCKCAL  ( LOCK  / TAI  isR  / TAOITR  / t’iME  / DBNLOCK/DFrpRi 

DELTR) 

1 A y 1 1 R = [■  A M 1 T 4 D E L T R 

16 

TAI ISR^TAI ISR+DELSR 

1 / 
18 

uij  I lJ  ■ 

100  LOU  II  VUE 

20 

locked  up 

■2T 

If  (Wjg  ‘LTo“i:eci:soci^)  OFfo  no 

22 

T A I 1 S ^ “ S r\'  f\j  E. 

f A 0 1 T R T R Is'  E W 

24 

GOTO  999 

25 

no  continue 

2 6 

C-C  * It  UV'L  0 CK 

27 

lock  r.  3 

2 8 

CALL  LOCK CAL ( LOCK / T A 11  SR / T AO  1 TR / T I Mr / DONLOCr . Dr  1 rr^  dfLTR  ) 

•^0 

TAI ISP^TAI iSR+DELSr 

^./ 

tasitr-taou  fudeltr 

31 

GOTO  999 

32 

•K- 

33 

200  CONTINUE 

34 

C4*^44^  LOCKING  UP 

35 

1'-'  (DONUOCK  .LT.  TIME)  GOTO  210 

3 6 

TA0rrR=TA01TR+DELTR 

3 7 

TAl  1SP  = tAI  13R  + DELS.R 

32 

GOTO  999 

39 

2f0  continue 

4 0 

E * * ^ » L 6 C K I E D UP 

4 1 

LOCKn 

42 

TAl]5r?=  SRnEW 

4 3 

' TAO  1 TR  = TRNEi4 

4 4 

GOTO  999 

4 5 

* 

46 

300  CONTINUE 

47 

unlocking 

4 8 

if  { DONLOCK  .LT.  TIME)  GOTO  310 

4 9 

TA01TR  = 'I  AOIT'R  + DELTR 

50 

TAIl SP  = TA  1 13R  + DELSR 

b 1 

GOTO  999 

52 

310  continue 

5 3 

unlocked 
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PUS  s 


't : 

5_:_ 
56; 
57; 


I'-''ULATI0N  F^RPGRAH 
LGCK=0 

999  CGNJTlf^uE 

return' 

END 
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3’JS  SI^^'JLAT  PROGRAM 


'•>  • 

C t 

♦ 

<*■»■»  lockcal  **** 

30GRGL1T  I N'L:  LOCKCAL  ( LfcCK  / S3,  TR,  T I "^2 , 00 m'. OCK, 

DELSE.DELTR ) 

3 ; 
u : 

^ -if-  -5r 

THIS  Subroutine  calculates  the  changes  in 

» LOCKUP 

THE  CONVERTER  C6NDI1 

C-;  • 

-i  • 

6: 

COn-iON  /LOCKER/  T IiKLOCK^  SRNEw,  TRNEK,  TKOLD^  SROLO 
C0M'^O\i/T  I HE  1 / DT 

7 ; 

« 23 

DEC  1076 

8: 

■«■ 

c,  • 

DTT  = DT+TIHLOCK 

m : 

GO  TO  (200,300)  LOCK-1 

1 1 : 

1?: 

200 

CONTir.'UF 

~l-< ; 

C ■»  X > »■ 

t~1tbcki  ng  up 

1 A ; 

OELSR:^  ( SRNEV.-'SR  ) *OTT 

r5^’. 

''TO ETTR3 n tCN E U »T R" ) * DT'T 

16; 

GOTO  999 

■ r?v 

> 

18: 

300 

CONTINUE 

n)-; 

A * * 

* JNLuCKiNG 

2o: 

DELTR=  ( TROLD-TR  ) ^^DTT 

2l ; 

"DEL  SL  - rERUU  D - SR  ) *DTr 

* 

■ 

rmTNTJF" 

2A*. 

OONLOCK::TIhe  + TIHLOCK 

26 ; 

RETURN 

2 6 ; 

END 
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3.3.13  Subroutine  to  Input  Engine  Map  - MAPER 


SUBROUTINE  NAME:  MAPER 

TYPE  OF  SUBROUTINE:  Input 

DESCRIPTION:  This  subroutine  reads  in  the  engine  maps 

used  to  calculate  fuel  consumption  and 
minimum  engine  torque. 

MODELING:  The  program  reads  in  the  engine  speed  on 

the  first  card.  The  second  card  reads  in 
nine  torques . The  third  card  reads  in  the 
corresponding  fuel  rate  and  the  fourth  card 
reads  in  corresponding  throttle  setting. 
The  fifth  card  is  blank.  This  is  repeated 
for  eight  different  engine  speeds.  Next 
the  first  line  of  the  arrays  to  be  used  by 
RIX0N2.  MAPER  then  creates  MAPI  which  is 
engine  torque  as  a function  of  throttle 
setting  and  engine  speed.  MAP3  which  is 
fuel  consumption  as  a function  of  engine 
speed  and  engine  torque.  See  RIX0N2  for 
a complete  description  of  the  make  up  and 
use  of  the  arrays. 


CONSTANTS  STORED  MEANING 


MAPI 
MAP  3 


Engine  torque  as  a function  of 
engine  speed  and  throttle  setting 


Fuel  consumption  as  a function  of 
engine  speed  and  torque. 
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RJ3  SINGULATION  PROGRAM 
1 : « 


MAPLR 


5 : “c 


~c: 


61 
7 : 
8: 

9T 


c 


1PJ_ 
1 1 » 
12: 
TTr 

: 

T5T' 

16: 

T7T 


SUBROUTINE  m,\pER 

1.  "TH  I S ■sOSRauT  I N’E'  READS  '1  N 'THl  ENG  I NE  MAPS 

common  /maps/  Map i> maps 

DTmE'NSTmN  MAPTfSb^  17  MAP3(  17i  17) 
DIMENSION  F(50/9) 

“9C0  F0RmaT(5X/9E7.2> 

eTd  a’ps 

910  format  (917) 

"DO  io‘  ID'1^40/1 
read  900i (F( l/J)^ J=li9) 

FRT"^T~9cT0^  { F ( I / J ) ^ j=  1 > 9 ) 

10  continue 

Tii3--rr“iTrri7  “ “ 

DO  14  J=ly 17 
I^APTET  / 


18 ; 
Tur 
20; 
PTT' 
22: 
prr 

11 L 

2b': 

IIL 

27: 


14  continue 

TT~CTTTvXnPjt_  3“ 

READ  910  i ( MAPI  ( 1 / K ) / K = 1 > S ) i MAPI (2/1) 

D^uTPUT-TiT)T)~^FT"RST"TiUNir“rN~Xr^7rY ' 

PRINT  910  W MAPI  ( 1 ^ K ) > 1 / 8 ) / MAPl(2il) 

■^Ti“?’0  t=3>5t;i 

M ^1  ( N 1 ) = ( I - 3 ) ^ g 

20  CONfiNUE 

DO  30  I :^2.  1 1 i 1 

MAPI  ( ) = I -li  200^.400 


_ 9 
? 0 


3 1 

32 

33 


_COi^ J NU F 

bo  40  l=2^1il 

JH1±1 1 Jl11±  5 

U = 2 ' ' 

A 1^11  ^LL  NN42/ J)~F(NM,  j)*F(N'N  + 2i  J-1  ) ')  / 
1(  F { NN  + 2/  J ) - F ( N.N  + 2/  J-  1 ) ) 


34  ;___ M^A  PJ,  {3_,_  I ) = IT»  1 00 

”3b';  " 4 0""caNT‘l  NUE 


36 

37 


'<  = 3 
DO  " 


100 


N=--2>  100^  2 


33;  K---K  + 1 

39":  " ' L = i ■ ■ 

40:  DO  90  1=4/39/5 

'41 ; ' L = L-^r" 

42:  DO  50  J=2/9/1 

'4  3':  IS  = F ( I / j)/o,30  9 3 

44:  61  U ( TS-.N  )6l0/ 60/ 70 

'ABT  610  rrn'N  .eQ‘.  roO  ‘ANDt  J .e'O*  9)  GOTO  70 

46: 

4 7 ! 6"D  "To  f<  = F ( l“2/j)  *»-100 

4S:  MAPI  { K/ L ) =TOR 

49:  (Iir~Te  90  . 

bp'J 7_0  _T  ^R=_l  CK;  M " 2j_Uii_)  t (£  [ L~  2 / U ) “F  ( j -2/  J-  1 ) ) ^ ( hN  * 8 C '«  930/100" 

5 T : " 1 F'  ( I / j ..  1 ) ) ■/  ( f'  ■{  I / j ) - F 6 1 / ' J " 1 ')  ) ")'■) 

52;  MAPI (K/L)=T0R 

3 ;■  ' "6lj"  TO  '9‘o  ' ' 
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5US  Sl>-njLATI6M  PRPG^MM Q 


— 5T 
55 

w^TvnTruc 

90  CONTiKUf-: 

100  cersiriku'e 

read  910  WMAP3(1,K),k=1^81  ^ MAP3(2/i) 

59 

PRTN'T  910  i (MAP3(l/r<)^K=l/8)iMAP3(2j  i j 
1=3 

— Sir 
61 

63 

00  PlO  I I =-50/950/  100  ~ 

MAP3(  I>  l)  = iT 

r^T+r~  ^ ~ 

210  C9^iTI^^UE 

6h 

65 

05  310  I=2/llil 
r.AP3(2/ I ) = i*200  + A00 

66 

67 

3 1 0 C 5 N f I i'n  U E 

K = i 

SIT 

69 

D0''5A  N = 0i9i  1 
K = K + 1 

/O 

71 

n=  1 
J = 2 

Id 

73 

Jir  5 2 I =■  ■»  5oT9irO"/  r 0 0 
J = J + 1 

75 

IT  n [1 ; p +]^by!'-rr)  ~jTrh9'yb9 
39  MAp3  ( J/ K ) =F  ( 3 + Ni^5^  1 ) #100 

7 b 
77 

by  r D t; 2 

A9  h'AD3  ( j,  l.f  ) ;=F  ( 3 + N«5/  M ) #100 

78 

79 

Oa  TO  52 

59  I F { I ^F ( 2 + N#5i M + l ) ) 65^65^66 

SO 

8^ 

6 6 = Pi  + 1 

IF(M^D)  59^55/55 

S J 

55  MAP3  ( ;<)  =F  { 3 + N*5/ 9 ) #100 

P = M~  1 

8^ 

85 

G5  TO  52 

65  PAP3  { J/  P ) = ( F ( 3 + \#5,P  ) - ( ( F ( 3 + ,V#5^M)  -F  ( 3 + N#5i  M+ T)  # '(  T - F ( P + f'J#^  . M ) ) 

86 

£7 

1/(F  (?  + K*5^M+l  )-F(2  + ,\'#5>K)  ) ) )#100 
5?  CONTINUE 

88 

89 

54  CO\'TIkuE 
PR  I N'T  502 

90 

91 

502  FORmak// 18HNAP1-E;^GINE  T0RQUE<»/) 
DO  130  I=li53#l 

92 

93 

ISIZEY=9 

PRINT  500/ (MAPI (I/j)/J=WlSlZEY) 

04 

95 

130  continue 
C PRINT  503 

96 

97 

503  FORMAT (// 20HMAF2-MANIF0LD  VACUUM//) 
C DO  131  I = 1/ 13/ 1 

98 

99 

Z PRTrrt  1500/  (MAP2(  i/j)>j  = i/ii) 

C 131  continue 

Too 

loi 

TRTrrT”504 

504  FORMAT {// 14WMAP3-FUFL  RATE//) 

To  2 

103 

05  132  1=1/13/1 

PRINT  500/  (MAP3{  I/J)/j  = l/ISlZEY) 

lO't 
1 05 

132  continue 
500  FORMAT! 11 17) 

- TETURn 

'To  7 

END 

3.3.14  Subroutine  to  Output  Constants  - OUTCON 


SUBROUTINE  NAME:  OUTCON 

TYPE  OF  SUBROUTINE:  Output 

DESCRIPTION:  This  subroutine  outputs  constants  describ- 

ing the  current  computer  run  as  the  first 
record  on  the  record  of  performance  data 
f ile . 

MODELING:  N/A 

EQUATIONS:  N/A 

INPUT  VARIABLES:  S/L 

OUTPUT  VARIABLES:  S/L 

OTHER  VARIABLES:  N/A 

PROGRAM  VARIABLES:  N/A 

FLOW  CHART:  S/L 
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r U5  Sl^JLATI5N  PROGRAM 

1 » ♦ •**#  6UTC0N  #*»* 

2:  subroutine:  ‘=»utcon 

USED  To  OUTPUT.  TO  THE  TAPE  DRIVE  CONSTANTS  THAT  ARE  RELAVEN'T 

4;  continue 

5:  ■return 

6:  END 
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3.3.15  Subroutine  to  Output  During  Execution  - OUTPUT 


SUBROUTINE  NAME:  OUTPUT 

TYPE  OF  SUBROUTINE:  Output 

DESCRIPTION:  This  subroutine  prints  out  information 

during  the  execution  of  the  all-digital  pro- 
gram. It  skips  to  the  top  of  the  page  and 
prints  new  titles  after  fifty  lines  have 
been  printed  on  one  page. 

EQUATIONS: 

1)  Brake  specific  fuel  consumption 
EC  = FR/HP 

2)  Fuel  consumption  in  miles/hour 
FMPG  - V * FW/TFC 

3)  Torque  converter  efficiency 

N * T / TN  * T I 
CO  CO^ ^E^ 

INPUT  VARIABLES:  S/L 

OUTPUT  VARIABLES:  None 

OTHER  VARIABLES:  N/A 

PROGRAM  VARIABLES:  N/A 

FLOW  CHART:  S/L 
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SI-JLATI0N  PRHGPAM 


■ DATE 


1 

? 

^3 

4 

5 

6 
7 

_8 

9 

LI 

12 

fT 

16 

[T 

18 

rr 

30 


■*  OUTPUT  **•* 

SUBROUTINE  OUTPUT  ( NL  I NE  ^ PAOERi  OB^P/ VVflSy  FUFllEi 

C Wo  A ^ t ] KE  / VVK  A ^ P a'ON/'S  S TOR  3^  TAl ISRiTAOlTHiToOlEFj 

C T9  I 1 , T ^ J A ON  > TAOC/ ^ PC/  VVQD  ) 

OjtpuTs  iNFOPNATiON  TO  THE  LINE  PRINTER  DURING  EXECUTION 
common  /comment/  C0HM(26) 


/uAS/  FUELWT 

/PRNT/  I OUT, lPRNT,LOADEQ,HAXLiN 


CONVOM 
COM^^ON 

C-“"-  SUB^O'unf^ 

C R*R«RADTKE 

9TTT OR A t~(  1 H 1 ^ 2 0 X , 1 3 A 6 , / , 2 1 X ilSAA) 
102  FORMaTL/,  9X,21M VEhICLE-- 


to  output 
3/5/74 


DURING  EXECUTION 


l2x,pm-’-----f-uLL  Rate 

2, 2X, 12H-DRI VETRAIN- ) 
T03-F 


2X,  20H- 


■ENGINE' 


2X, 6HACCUNU, 2X, 19H-- TORQUE  CONVERT0R- 


' [ JXTTTTTT^L,  2X721  HDTST^  SPeED  ATCEl.,?X,  igHSPEED  TORQUE 

1P0WER, 3X, 22H (LB/  * I NSTaNTAnEOUS*, 1 X, 6HLAT I VE, 2X, 19HSPEED  TORQUE 
2EFF  ICT 


X 2T<,12H  IR  RA  GET“ 
104  format  {2X,5M(SlC>,2X,22h(MI ) 


(MPH)  (PPH/SEC), IX, 19H(RPM)  (FT-LB 


T)  ( nf-' ) , 3X,  21HHP-HR  ) (LB/HR  ) ( NPG  ) , 3X,  5H  ( MPG  ) , 2X,  1 SHR  AT  I 0 RATIO 

_?I ENCY, 3X, IgHEEF . EFF,  aR) 

1 0"P“rmr-TA-r~n7:7r7T7; F'6V3,  F7‘72  W5 . 3,  FS  . 0,  F7 . 1^  F6'.  1 / F8 . 3,  FS  . 2,  F8 . 2^  F8 . 2 
1 f F7  • 3 1 f 1 «3,f6*3,F7»3,  lX,F^»3.»F3tO) 

TT)'6-F^^A  r ( 1 XTTTTZTTS'TT? , r 7 • 2 , F9.3,F8.0,F7.1,r6',  1,5X,3H^^ 


?2 

rs 

Fb 

?6 

11 

35 

io 

n 

12 

Vd 

?4 

15 

M' 

L/. 

5 S' 
HD 

TT 

^2 

>3 

75' 

f6 

r7' 


1/F8»2,F7»3,F7  »3,F6.3,F7.3MX,F4.3,F3t0^ 

BRA":<[.  SPECIF'iC  FUEL  CONSUMPTION 
3SF C=PAQFR/aBHP 


/F8,2i F8.2 


fuel"  IN  miles  PER  GALLON 
= VV  0 3 F U E L W T / P A n F R 


torque  COirXERTER  EFFICIENCY 
TCEFr=TA6N*TAOC/(PAON«PA0C) 


fi' 


F^■■p^,c^o 

IF  (FljrLE  )4, 4, 3 


r*’i*^*  CONTINTJOUS  FUEL  IN  MILES  PER  GALLON 
3 rMPGC=VVQD»EUEL/T/FUELE  


4 CONTIMoE 
VVMA=VVOA 


NLINE  = InL  INE  + 1 

CHECX  TO  SEE  IF  AT  END  OF  PAGE 


inTrL"lN'E-MAXLIN)20,20,5 
5 CONTINUE 


IF  S'o  .O'UTPUT  PAGE  EJECT  AND  PRINT  HEADING 
PRINT  90/  (COM^M  I )> i = 1,26) 


I^RInt  102 
PRINT  103 


P’^INf  104 

IF  (NLINF-maxLIN'-4  ) 10,  10/15 


lO'HTAXLTN'^or? 
15  NLINl=1 


- d 

iO 

rr 

i2 

)'3 


20  C.ONTINUE 

IF(B5FC)80,80/70 


70  CONTINUE 

IF(BSFC-2. )73, 73/80 

e,o  continue 
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JS  3l'^'JL  AT  ION  PROGRAM  D 

-'S'-':  1C6,t]MF>  VVOD/ VVGSy  VVMa,PA0N/SSTOR2>QRHP>  PA0FR/FMPG> 

5 iFMPGCy  TAl  ISR  / T AO  1 T R ^ TCEFF  / TbO  1 E.F  / t9  I i , JBO  16  i 

—56.  ‘W  te  S3  ' 

57;  73  CONTINUF 

'53:  print" 105/TINF^VV9D/ VV0  S>VVMA/PABN/SSTORQ/08HP/BRFC/PA6FRjFMPGj 

59; lFMPGC>TAlls-.>TA01TR/TCEFF/TG£ltFiT3I  I/TPOIGI 

6Gl  99  ClTnTINUE 

61 : return 

6'2:  end 
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3.3.16  Tape  or  Disk  Output  Subroutine  - OUTVAR 


SUBROUTINE  NAME:  OUTVAR 

TYPE  OF  SUBROUTINE:  Output 

DESCRIPTION:  This  subroutine  outputs  the  current  value 

of  the  state  vector  on  the  system  output  file. 


MODELING:  N/A 

EQUATIONS:  N/A 

INPUT  VARIABLES: 

S/L 

OUTPUT  VARIABLES: 

S/L 

OTHER  VARIABLES: 

N/A 

PROGRAM  VARIABLES. 

N/A 

FLOW  CHART: 

S/L 

COS  SU'ULATION  PR-G:MM 
~Tl  * 


* it 


: SUBROUT TNE  OUTVtR 

if  TfTTS  SuBROUT  INE  QUTPUTS  TO 
; C6ntin'ue 

: END 


OUTVAR  *■**» 


THE  Tape  drive  variarles  chqsei 
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3.3.17  Subroutine  to  Store  Power  Used  - POWER 


PROGRAM  NAME:  POWER 


TYPE  OF  SUBROUTINE: 

: Bookkeeping 

DESCRIPTION: 

: This 

subroutine  calculates 

the' power  being 

used 

by  the  bus  at  various 

points . 

MODELING: 

S/L 

VARIABLES: 

S/L 

EQUATIONS: 

S/L 

90 


I 


10 

11 

12 

TJ 

T5' 

16 

TT 

18 

TT 

20 

7T 

22 

TT 

2^ 


SI^"ULATI^^’  pr03kAm  

1 Srra^'DUTlNS::  '-M3--2R{PAOC#darN,  TA0^'JTAeC/T9IN^T9^C/Tq^^^iT98C/ ACTORQ 

C _ ^_S STPR 0 , y V 0_A_^Bf_0 P^E  # PFORCEM / 

; c H P A H U ii  * H P R /.':<■  1 i P p T R A N M i •-»  P T Q C M i H P E Ni  G P. 

J ^ __  /MPWHLP>  HPRAXP/HFTRAKP,HPTQCP/HPEN1GP.»HPACC')  

: C2:iP9N/TlMEI/  OT 

; real  k 

1 K=5252. 

; ACC  = ACTpRQ*PA3M*DT/i< 

! ^G  = SSTRRQ*P^?i\»DT/K 

: TQC  = PA0rs'*PALC»DT/K 

; TRAN=T AOC*fA0N*DT/< 

; RAX  = T9lr.;*T9IC»PT/K 

I i*'HL=RAX*-»92 

: IF  (SST0RO  .GE«  0*)  GOTO  20 

; TO  cor^  1 iN'UE 

: hpwhlh=mpwhlh+wml 

1 FfPRTAXM  = P R A ':<K+RT5?  ^ 

: HPT•<A^Jp  = HPTPA^'^^  + TRAN 

T HTTRCP  = f>PTGC'i  + TQC 

; HPEVGP=HPENGM+EMG 

1 5R  nKZ^'mcl  * R A O N / 5 2 5 2 . ipT 

; BF0rcEk=BF3RCEM+BrAKE 

1 GTTB— 3'C ^ 

; 20  coiMTinue 


25 

2A 

27 

21 

29 


30 

3 1 

32 


30 


H P A H L P = H P W H L P W H L 
HPRAXP  = MPR  AXP-t-RAX 
HPTRAM^  = HPTRA\'P  + TRAN 

HPTGC  P = P'PTQC  P_  + T G C 

h'^EN.'GP  = HPENGP  + EfsG 

C3NTI\UE 

HPACC=HPACC+ACC 
RETUR,Nj  


33 


E,^D 
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3.3.18  Probability  Density  Function  - PRBDEN 


SUBROUTINE  NAME:  PRBDEN 

TYPE  OF  SUBROUTINE:  System  Computation 

DESCRIPTION:  This  subroutine  calculates  the  joint  prob- 

ability density  distribution  of  engine 
speed  versus  steady  state  torque  over  a 
given  driving  cycle. 

MODELING:  This  subroutine  is  written  in  generalized  for- 

mat so  that  joint  probability  density  of  any 
two  variables  can  be  recorded.  However,  it 
is  presently  used  to  determine  the  joint 
probability  density  of  engine  speed  and  torque. 

The  probability  distribution  is  determined 
by  counting  the  number  of  computational  iter- 
ations the  two  specified  variables  fall  within 
given  intervals.  The  joint  probability  den- 
sity is  determined  by  JPBSUM  at  the  end  of 
the  simulation  when  the  number  of  samples  with- 
in each  interval  is  divided  by  the  total  num- 
ber of  samples  recorded  during  the  run.  (One 
sample  is  taken  during  each  computational 
iteration . ) 

EQUATIONS:  N/A 

INPUT  VARIABLES:  VAL(2)  - Current  engine  speed 

VAL  (1)  - Current  steady  state  torque 

NLT(l)  - Number  of  samples  below  min- 
imum engine  speed 

NLT(2)  - Number  of  samples  below  min- 
imum torque 

NGT(l)  - Number  of  samples  above  max- 
imum engine  speed 

NGT(2)  - Number  of  samples  above  max- 
imum torque 

IPDX(20,20)  - New  probability  distribu- 
tion 

VMIN(l)  - Minimum  torque 

VMIN(2)  - Minimum  engine  speed 
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INPUT  VARIABLES  (CONTINUED) 


VMAX(l) 

VMAX(2) 

VINT(I) 

VINT(2) 

INTI 

INT2 

S/L 

- Maximum  torque 

- Maximum  engine  speed 

- Size  o£  torque  interval 

- Size  of  engine  speed  interval 

- Torque  index 

- Engine  speed  index 
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-'3  program 

T ! A \ L 3 > o 


DATE  . 
A 


A 

5 

•*  ■>!■•»■»*  prude  N ♦*•** 

C---“  subroutine  to  calculate  the  joint  probability  density  of  Tl'.O  VARIAE 

C--“"  DA\i  kaPELLEN  2/74 

subroutine  PRBOEN  ( VAL 1 / VAL2W4LTi NGTi IPDX ) 
commo::  /cposc-r/  v^:  i n ( 2 ) / vhax  ( 2 > ^ v i nt  ( 2 ) if m ( i'l  - 

D 

7 

Ul'-U^'SION  n>DX(?0/2C) 

D I MENS  I ON  NlT f 2 ) y NgT { 2 > ' 

■?r 

-irr 

X i 

this  SUPROUIILE  calculates  THE  JOINT  PROBAEILITY  DENSITY  OF  TWO 

C-"'"’"'  SPt'-LIf-lEU  FJ‘\C1I0^:S  during  THE  DRIVING  CYCLE.’  TwF  PROGRAM 
variables  are  as  FSLLOUS/  ' 

— x-- — 1 

i C 

13 

VALl  “-““CNJRRENT  value  QF  FIRST  SPECIFIED  VARJABLE. 

15 

-E~----VDAt2  ---^URRrKT  value  0^•  S“EC0ND“^PEC  I F 1 EIU^R  I ABLE  . 

i t 
1 7 

B-  oTD^'PrES^HimUv  SrECTFlED  ‘^.INlMil^  FOR  EACH  VARIABL 
NGT  ( I ) ----number  of  samples  ABOVE  SPECIFIF  D maxiiSiM  FOR  EACH  VARIABL 

E-“-“  1 i^ux  ( lU  J ) „ 1 TAl:LE  04  PROBAB  I L I TY  . DLN3  I T Y D I STR  I BUT  I ON  ► 

15 

program  Variables  — - - — — 

d '0 
2 1 

c^--^^Mi’T7rrT-’»Gpi:crE:rrrTT  mintmum  fo.r  each  variable. 
C-“"-  V'MAX  ( I ) --SPEC  IF  I ED  '^AXl-''l’M  Fqr  EACH  VARIABLE. 

? 3 

c “ " ~ " V I N 1 ( ] ) - «■  s p E c 1 4 1 E D Interval  length  for  e c h variable. 
I NT) ----Table  index  for  first  vartablf. 

?.  'r 
C T> 

C I NT2“-“-TA5lE  index  for  SECOND  . VAR I ABLE  . - . ^ 

the  joint  probability  density  is  determined  as  a PFRCENTAGF  AT  THF 

26 

C----  end  er  THE  CYCLE  IN  JPBSuM. 

2/ 

C It  ■»■  -a-  )(• 

2.' 

25 

C **  •■ " “* 

DETERMINE  IF  VALUE  OF  VARIABLES  FALL  BELOW  THEIR  SPECIFIED  MINIMUM* 
IP(VAI.  1 “VMr'H  1 ) ) ) 3)  . l"2i  132 

"3  r 

V 

132 

IF  ( VAi.  1 -VMAX  ( 1 ) ) i3Bj  1 35^  134 

3 1 

131 

NLT ( 1 1 =NLT ( 1 ) + 1 

32 

GO  TO  135 

33 

134 

NGT  n i =NGt  ( 1 ) ^-1 

3 4 

G5  TO  135  . 

3 ^ 

^ n.  « « « 

DETERmIhe  if  the  value  of  the  VARIABLES  FALL  AROvF  THEIR  GPrCIFIED 

3 6 

13B 

( VAi.2  -v:'  r.'(  2 ) ) 136/  137/  l37 

37 

137 

IF  (VAL.2  ~VMAX(2)  ) 140/  14Q/  l3S 

32 

136 

NLT ( 2 ) =NLT { 2 ) v) 

3 

A 


RETURM 

i.?B‘  \'GT  ( 2}'  = RGT{  2)  +1 


1 ’ R E T U R ' 

3 :~c~  — - D E T ( : ?■'  r M L T E T'7  bTTe  rRDlCES  FOR  EACH  5F  tTAe  vARIarLES  AS  DETERMINED 
43:  C-"--  BY  Tn'r  INTERVAL  IN  WHICR  THE  VALUES  FALL. 

4 'V : 1 AO  'I N tT  = ("y A L i - v fw t, J \)  )/ yiu + 

45:  INT2=(yAL?  -VYI,\(2)  )/VlNT(2)  + l. 

At:  C-“—  UPDATL'  THE  ■ P;;j“LpER' X^RAy'-'eLMEnT  IN  ThE  TABl-E. 

i2A IPPY  ( INTI  / IN'T2  ) ^ I POX  ( INTlM  NT2  ) -<•  1 

43:  return 

49:  END 
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3.3.19  Subroutine  to  Print  Constants  - PRTCON 

SUBROUTINE  NAME:  PRTCON 

TYPE  OF  SUBROUTINE:  Output 

DESCRIPTION:  This  subroutine  skips  to  the  top  of  the 

page  and  prints  out  the  constants  defining 
the  car  being  simulated. 

EQUATION:  N/A 

INPUT  VARIABLES:  S/L 

OUTPUT  VARIABLES:  S/L 

PROGRAM  VARIABLES:  N/A 

FLOW  CHART:  S/L 
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B JS  Si  ^’ULATie^N  M 


1 

c 

C.“ dan  KAPrLLPN  A/3C/7A 

3 

SU3I^MUTINP  PRiC^NN 

5 

6 

CONKJ.N  /AIR/  AVI2/ AVIA',  AVle^  AVIS/ AVIM  , ~ 

C6M•'10^'  /AKCE'SS/  ACL  0 AO  (1  0 ) / P I DL^' I N/ P I Dl.  MAX 

7 

B 

C ij  ' 4 i ‘ 4 >1  / 3 A ''■  / ri  >.3  r,  T J 3 
CPM'^^CN  /CeM<"i:M/  C9^^M(3A) 

' “5“ 

10 

CbM'OON  /CONTR  '.L/  CiA  I no  DE.LMI  N,  NVLPA/ I VEPA  (685  ) 
CO’iMO'J  /DSSPD/  laiNVCC) 

1 1 
1 c 

CO^r-'nv  7cNg  I N/SCALEP/ T I 01,  Ei  EVS/ TS 
COMMyv  /EPaSH/  VCP'JS,  ACEL/DECEL/  TD.nELL 

1 A 

C At  El ' ' :j  N / Cj  A S / E U E L a'  T 

common  /GEAPEE/  T3C1G I ( 1 0/ a ) i I DCIG I ( 10 ) 

I'O 

16 

C5MMD  N /INE^I  A7  TJ I E j P I ti  I N V 
common  /L0C'<1/  ACCLOCK/ DECL8CK 

IT^ 

IS 

CEO'P-i  0>T~7^1  A Si;  r^\i  riTlT  vv  1 1 CD  / VV  I 1 f<  F / VV  I M I / vvi  2BR,  VV?M^  vvi  MDR/ 
C VVI SNE. vv I SH/ VV I AMX/ VVI AS 

1 ^ 

20 

L3m‘-o\  /PI'O'-Eli/  TvIvjCT^  TVIJTRi  tv  I JrtA  ^ T V I J T W 
common  /PRnT/  P-'^UT>  IPRNT.LOADEQ/MAXLIN 

A i 
22 

“CMjTiI'In  7R0LD7~TvICrL  ( 16  ) 
COMmoN/NqrT I 0/  lailGR 

2 ? 
7 L 

CmT;  N / srt  1 f:  / T b o t m 3 / t b D t h 

COMMok;  /ST0='^PE!</NST8P 

25 

26 

COM- 'ON  /SHIFTEEV  GR^AX  ( 3 ) / GRfi  I N ( 3 ) / GRMaXCP  ( 3 ) 
common  /TGRTTV  TbClGRI 10)/Cri 

27 

?8_ 

COMP'ON  /TIRE/  VVIDRPiVVIFUM/VVIFUS/VVIlCF 

COMKON/TIHri/  dt 

CoMf'oN  /TPRGCON/  TAI3KP 
COM‘"ON/tGC/  a ...Ay  (20/  3 ) 

31 

32 

1 FC)R^:/,t  (iHi  / AlX/ 38HVt;Eq  C^E  PARAMETERS  USED  rOR  SIMULATION  ) 

3 F0RMAT(21X,  13A6,/.,21X/  13a6) 

33 
3 A 

A FOfNMATC  120  A >n<- «*■>'■»*-#•**■**•*♦» 

3 5 

2*-*  ) 

5 F0r^''.,-'T  (A2X/l'‘'**/27XilP'i^/A8X/lHv) 

37 

3 

6 FfjRv,;^i  ( lx,  AO'-(""”“---~VEEiICU:  characteristics----- /1X,1H*/2X/ 

3:^ 

c w'lJ 2X  / 1H»  ) 

7 format  (1X,15PREAR  AXLE  R AT  I 3 / 1 6X , F7 , S , 3X/ 1 P * , ?x , P 3HSPEED  TORQUE 

Al 

A2 

1 1 // »^2, 2X,  lH-»  > 2Xj  AAHGl  ArR  RATIOS  SCHEDULE 

2 /2X/1H*() 

A3 

•4 

8 FOR''AT  (lx,  Sf-MASS  ( Ln  ) / 20X  / F 8 « 1 / 4 X / 1 H#  / 2 X / p 4HR  A T I 9 RATIO  (iO^ 

l^-AIiRHi^/lSX/pOH  iAXilH*) 

h b 

4 ^ 

D F.ORI'.AT  (1X,2oHMAGS  0,\  DPJVE  ivHEELS  ( L2  ) / A X,  P8 . 1 , A X/ 1 H */ 27X/ 1 1 -1*  / 1 5> 
C/33W  /1FI^^) 

H 7 

4 V 

10  FOR'^U  ( lx,  2CHFR0NTAL  AREA  (SO  F f ) / 1 1 X / F 6 • 1 , , 1 w •>,  25X/ 9H  •»  I'ST 

1/F6*3i.3  6X,  1H*) 

4 3 
50 

11  format  ( ix, 31’MCOEFF ICIENT  of  rolling  friction, F9.A/33X/3H2ND/F6. 3 

1 , 5X,  15HL0CKUP  AT  , 2X  , Fn  • 1 , 2X  , 3'- Mph  ) 

5 i 

w C 

12  Fe;R'''.A7  (1X,16pL'rAG  C6EFF  I C I EN  I / 1 bX/ fS  . 3/ 3AX,  SHSpo/ F6 . 3 
C / 5 X / J 5 H U N 1-  0 C ■<  A T / • 1 _/  2,X  / 3_H  ^ P H ) 

13  F 0 R Is  T ( 1 H + , A 1 X , 1 1-1  # , F 7 . 3 / F 9 • 3 / F P • "a  / H * / A 8 X / 1 H ■»  > 

i 


: s S I vi.ILAT  I pNJ  rf<TiGPAM OATP  - 


; 14  FriR-'AT  (1X>23‘ITIRE  STAJir  RADIUS  ( FT  ) / 8X>  F8 . 3>  34y  / 3H4TH/ F6 . 3 

: C > 5X/  15HUP^-MIFT  1-2  / 2X/ F5  . C/ 2Xi  3hRPM  ) 

5, , 

• 15  format  ( 1X>  26HE.\GInE  INERTIA  ( LBM-F  T **2  ) -»  5X>  F7 . 2 , 35X^  3H5THi  F6 . 3 

C >5X/ 15HUP5HIFT  2-3  / 2X>  F5 . 0, 2X^  3hPP^^  ) 

5^ 

59 

16  FORMAT  (1X/25NTC,.  CONV.  TUR'SINE  I N'ERT  I A/ 6X>  F7  . ?i  35X^  3H6THi  F6  • 3 
C 15HD6^.NSHIFT  3-P  > 2X/ F5 . 0 » 2X  / 3HPpM  ) 

6 

1/  hJR  AT  {lX/jlHrRANS‘''ISSIc;I'i  INERTIa  (3RD  GEAR)/F7»P>35X/5HBEVEL 
C/P4.2  / 5Xi  ISmDOWN'S'-'IFT  ?-i  i 2X  / F5 . 0/ ?X  ^ 3hRPm  ) 

' bd 
63 

1 

la  FOR'^aT  {lXil7NR'EAR  AXLE  I N'EPT  I A/ 1 4 Xj  F7  t 2 ) 

19  format  ( IX^  23MlNEr?T  I a OF  DrIVE  RP'FELSi  RX/ F7'.  2 ) 

i 

\ 65 

TCTTUT^T^T  ( IXi  26HiTATlC  tjrd  FRICTION  COEF  . i 5Xi  F7 . 2 ) 

21  format  ( IXi PSHSLIPPING  TjRE  FRICTION  COEF • / 3Xi F7 .2) 

66 
■ 67 

22  F 'jr-'a\  ( iX^  iD-^^r-LEL  BASE  ( I N ) ^ 1 6X ^ F 7 . 2 ) 

23  FORMAT  ( lx, 29UCFKTER  OF  GRAVITY  HEIGHT  ( I H ) , 2X, F^.  2 ) 

6i 

: 69 

2^roRT^^  nxrzTHTrLE“THR’oTTrr^rrn  Nm  o x / ft~.  2 ) 

26  FORMAT  (1X,28HDELAy  TImF  AfTER  SHIFT  { SEC  ) / 3X/ F7'.  ?') 

70 
:l  71 

2 o-FT)  K M7n~TI^P9RTP-A*^g^“S“r039-SH  I FT  ' 'nTHTTS  EU ) , 2 xTF? 72  ) 
27  FOR.^vvt  ( 1x,23NAM5IEN'T  TEMPERATURE  { r ) , SX,  F6'.  1 ) 

! /i 

, 73 

2 dj  F M R ■'  A 1 ( 1 X , E 5 H 2 A K n M r.  T i-^  I C P W E 5 S U '•<  E ( P S I ) > 6 X , F 9 , a ) 
29  format  (1X,22HAIR  DENSITY  (LB/CU  FT),9X^F9.4) 

/'T 

. 75 

310~njR^^7n  ny7T9''HEF'G  I NE  scale  FaCTOR/IE  X/F8. 3 ) 

31  format  (IH  ,21HFUEL  DENSITY  ( LB/G  AL  ) / 1 OX/ F7 2/ SOY  i 1 H*  ) 

/'n 

^7 

8 2 FuRrat  (42X/1H*/F7i3/F9»3/F9»4/3H  ■'*■) 

33  F0-\hU\T  (IFi  , 4. PH-f-jut*-**--#-* 

, 76 
73 

34  format  (IH  / 4 1X/ IH#, 27X/  ] H#/ 3X/ 2GHDR i VFSHAFt  ROAO  L0AD/3H  * 

' 60 

i 

C / 22X/ IH* ) , 

35  format  (IH  / 9X/ 19H--T IRE  E XPANS I 0 N - ~ / 13X/ 1 H * , ?7x , 1 H* / 3X/ 2nH - - - -TO 

' 6 

CR3UE  table / 2Xi IM* , 22X/ IH* ) 

36  format  (IH  /9X/ ISHVEHICLE  DR  I VES^NAFT/ 13X/ Iw*, ?7^ , lu*, 3X/ 

'!|  s^. 

i'l  ss 

C 2 o r-i  V E H I C L E R 0 D LOAD  ■*•  / 2 0 X / i H # ) 

37  format  (IH  ,9X,]9H  SF’EED  SPEED  ( RPM  ),  i 3X/ IH^./ ?7x  . IH*/ 5X, 

is 

C SHSr-EFD  / 5X>  6HTOROUE/  4X,  IH*  / 22^  / IH*  ) 

38  format  (IH  / 9X/P6. 1 / 5X/P6. 1/ 15X/ IH*/ 27X/ I'H*,  4X/ fa'.  1/ 5X/C-5. 1/ 5X/ 

•i  58 
i 69 

C 1H*/E2X/1H'*) 

39  FOREAT  (IN  ,73x/18hTHIS  TABLE  is  USED/ 3X/ 1 FU / 229  * IH* ) 

90 

91 

40  format  (IH  , 4 1 X/ IH*, 27X# IH*/ IX/ 24HRD  LOAD  EOUATION  IS  USED/lH* 
C /22X/1H*) 

32 
: 93 

41  format  (1H  ,42  <4  **»♦***«***♦*******♦******♦**************, 28X/26H* 
!******»***»**  ********** •»*  ) 

’ 2^ 

f «.  ^ 

43  format  ( 1H+, 95X, IH* ) 

50  format  ( 1H+, 4 4X/ 12HDKI VE  CYCLE  ) 

. ' Sfb 
^ 97 

51  format  ( 1H+, 44X, 12HST0FS/MILE  /2X/I4) 

52  FOR‘'/.,T  ( 1H  + , I 2HMAX.  acCEL.  / 2X,  F4  . i.»  1 X,  ahMPwps  ) 

3^. 
" 1 93 

53  format  (1h*, 4 4 X,1 2 i-i  deceleration  ,cX,F4tl/lX,6HMPHRPS  ) 

54  format  ( 1H+, 44X, 12HCRUISE  SPEED/ 2X/ F4 , 1 , 1 X, AHMPM  ) 

- ' DC 
’ 1 31 

PRINT  1 

print  3,  (CMM,m,(  I ),  1 = 1,26) 

- 1 02 

1 03 

PRINT  4 
PRINT  6 

^ 1 04 
1 35 

PRINT  5 1 

PRINT  7,TSI1GR  ! 

1 

PRINT  8,VVIM 
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f 

G I '-^’JuAT  I Pj\!  PR^GPAM 


1 " '! 

J • - . ■ 

P'<n:T  9/Vvi'4D-3 
MV=1 

) 

no 

r;P  = riv-l 

print  10/ VVILRR/TBC1G9(1 ) 

1 1 1 
I i ?. 

1 = 1 

TR  = AwAY(  np) 

' 113 

m 

SR  = A/,AY  ( 1/ 1 ) 

SF=AWAY ( n 3 ) *10000. 

""  H5 

116 

print  1 n VV  I 1RF<.  T5C1  GR  ( 2 ) / acclqck 

MV  = 2 

118 

MP  = MV-  1 

print  13^SR/TR/SF 

TT^ 

1 20 

PRINT  12>  VVI  lCU>Tr3ClGR(3)iDFCL0CK 
ASSIGN  81  T0  ISTATE 

— izr 
122 

“ /'CmfNTTNi(JE 
GO  TO  72 

- 

12A 

zrnrrrNTiTvjE:  ~ 

72  continue 

12^ 

126 

nwPYnr~ 

NP  = MV»  1 

128 

mN-'ir  • 

SR  = AWAY(l/l) 

IcT 

130 

T R = a W a f n / 2 ) 

SF=Ai/aY(  I , 3)  *10000. 

131 

132 

PRINT  13/SR/TR/SF 
GO  TO  ISTATE 

133 
' 34 

81  continue 

PRINT  1 4/ VVIDRR/TPC1GR( 4 ) ^QRMAXr 1 ) 

.5 
1 36 

ASSIGN  82  TO  ISTATE 
GO  TO  70 

137 

138 

82  continue 

PRINT  15iRTE>  T3C16R (5)>GRMAX(2) 

139 

UO 

ASSIGN  S3  TO  ISTATE 
GO  TO  70 

HI 

142 

83  CONTI  rUUE 

print  16.TVI  JCTn5ClGR(A).G'.MIN(3) 

143 
14  4 

ASSlGls  8 4 TO  ISTATE 
GO  TQ  70 

145 

146 

84  CONTINUE 

print  17yTVIUTR/i3GRTI0/GRMiN(2) 

147 

148 

ASSIGN  85  TO  ISTATE 
GO  TO  70 

149 

150 

85  continue 

print  18;.TV!URA 

151 

152 

ASSIGN  86  TO  ISTATE 
GO  TO  70 

153 

154 

86  continue 

PRINT  n^TVlUTW 

155 
1 56 

ASSIGi^  8 7 TO  ISTATE 
GO  TQ  71 

157 

158 

87  CONTINUE 

PRINT  20/  wnUM 

59 

ASSIGN  88  TO  ISTATE 
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5L'S  SI^'ULATIQ^J  PROGRAM 


1 6 (./ 

To  71 ^ 

16). 

8S  CON'Tif^uL 

1 6a 

P'9  I NT  21/VVlFUS 

163 

assign  89  TO  ISTATr 

1 6 A 

GO  TO  71 

165 

89  continue 

166 

F H I N T £;  2 / V V I S A B 

167 

ASSIGN  90  TQ  ISTATE 

16S 

GO  TO  71 

169 

90  continue 

170 

PPINT  23/VVISH 

171 

ASSIGN  91  TO  ISTATE 

V)c 

GirTtm  ^ : 

173 

91  continue 

174 

PKINT  24-»TioLE 

175 

ASSIGN  92  TO  ISTATE 

W6 

CJO  1 U 71 

177 

92  continue 

1 V 6 

rST  =01 *TbDT-S 

179 

print  25>TST 

i 60 

A-3STGTr-9'3-T0  ■ ISTATE 

181 

GO  TO  71 

i'8a 

93  CO  'TTTPUE 

183 

TA3  = DT^^TB[)TM 

184 

print  26/TA3 

185 

ASSIGN  94  TO  ISTATE 

186 

GO  TO  71 

187 

94  continue 

188 

print  27/AVIR 

189 

ASSIGN  95  TO  ISTATE 

190 

GO  TO  71 

191 

95  continue 

193 

PRINT  28/AVlB 

193 

ASSIGN  96  TO  ISTATE 

194 

GO  TO  71 

195 

96  continue 

196 

print  29i  AVIM 

197 

ASSIGN  97  TO  ISTATE 

198 

GO  TO  71 

199 

97  continue 

200 

PRINT  30/SCALEF 

201 

ASSIGN  98  TO  ISTATE 

202 

GO  TO  71 

203 

98  CONTINUE 

204 

FRlNT  31>FUELWT 

205 

ASSIGN  99  TO  ISTATE 

TOS 

GO  TO  71 

207 

99  continue 

"c'0  8 

AS3TGN  100  TQ  ISTATE 

209 

GO  TO  74 

2l0 

73  CilNFlNUE 

211 

GO  TO  75 

12 

74  CONflN'oE 

99 


. S I ‘-\JL  AT  ! PRHGiJAM 

' * '/ 

- 1 

^15 

?\h 

7u  C3NTINJ2 

1 = 1 + 1 

S '■<  = A k-j  A Y ( 1 / 1 ) 

T R = A W A Y ( I y ??  ) 

"'cl  7 
218 

Sf-=A/vAY(I/3) 

C PRINT  3?^SR;TRySF 

TfiTT 

220 

50  TS  I3TATL 

100  CONTINUE  ■ • ■ 

222 

FTINT  4 

ASSIGN  101  T0  ISTATE 

224 

GO  To  74 
101  CONTINUE 

c2o 

226 

pRINt  43 

ASSIGN  1001  TO  ISTATE 

ZTT 

228 

G 0 T 0 7 4 
1001  CONTINUE 

■ F2?" 
230 

print  3 4 

assign  102  TO  ISTATE 

231 

232 

GO  TO  74 
102  CONTINUE 

"2Tr 

234 

PRINT  35 

ASSIGN  103  TO  ISTATE 

2 3b 
236 

103  CONTINUE 

237 

238 

P PINT  4 3 

ASSIGN  1002  TO  ISTATE 

233 
24  0 

GO  TO  74 
1002  CONTINUE 

241 

242 

PRINT  36 
PRINT  50 

24  3 
244 

ASSIGN  104  TO  ISTATE 
GO  T0  74 

245 
24  6 

104  continue 

PRIPT  37 

24  7 
■ 24  5 

PRINT  51/NST0P 
ASSIGN  105  TO  ISTATE 

249 
25  C 

GO  TO  74 
105  CONTINUE 

251 

252 

PRINT  43 
DO  60  K = ly  11 

253 

254 

V=10+(K-1) 
1 = 1 + 1 

255 

256 

S R = A i‘,  A Y ( I / 1 ) 

T R = A W A Y ( I / 2 ) 

257 

25S 

SF  = A.,:AY  ( I y 3 ) 

C PRINT  52>SRyTRySF 

259 

260 

PRINT  3>^y  V,T3lNV{K  )y  VyTViCRL(K) 
IF  (K  •EO.l)  CON-TINUE; 

261 

262 

CPRINT  b?yACEL 

IF  (K  .EO.  2)  PRINT  53yOECEL 

26  3 
2 6>  4 

IT  (K  .LQ*  3')  PPINJ  54yVCRUS 
60  CONTINUE 

■ 2'6'^ 

assign^  l07  TO'  ISTATE 

100 


£lM,'JLAT10\i  prrgram 

c 66 

GO  TO  1^ 

; p-7 

107  COWTIMUE 

P?^INT  43 

269 

ASSIGN'  103  TO  ISTAJE 

2_70 

GO  TS  74 

27  i 

108  CONTINUE 

^ f- 

11-  (LOADEO)  61/61/62 

273 

61  continue 

■PPINT  39 

275 

GO  TO  63 

“276 

62  CONH  NUE 

277 

PRINT  4 0 ' ' ■*  ■■ 

"TTX 

63  lent  I NUE 

279 

assign  109  TO  ISTATE 

2bC 

CTO  TO  74~ 

281 

109  CONTINUE 

“E^TT 

PRINT  4 

2 -3  3 

64  continue  ■ ■ 

C --oJj  To  ]iip  OF  NEXT  PAGE 

235 

909  format  ( IHI ) 

2 86 

RE  I URN 

237 

END 
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3.3.20  Storage  and  System  Computation  - RDEPA,  EPACALC,  EPAVEL 


PROGRAM  NAMES:  RDEPA,  EPACALC 

TYPE  OF  SUBROUTINE:  Storage  and  System  Computation 

DESCRIPTION:  RDEPA  reads  a bus  cycle  which  includes 

rate  of  acceleration,  velocity  of  cruise, 
rate  of  deceleration,  number  of  stops  in 
cycle,  distance  of  cycle  and  dwell  time  of 
stop.  EPACALC  calculates  the  driving  cy- 
cle velocities  at  one  second  intervals. 

RDEPA  then  stores  them.  EPAVEL  retrieves 
the  appropriate  velocity  as  a function  of 
time  and  supplies  it  to  the  automatic 
driver.  See  Figure  12, 

MODELING:  Bus  cycle  velocities  are  generalized  to 

have  four  phases,  acceleration,  cruise, 
deceleration , and  dwell.  PEACALC  determines 
the  velocity  as  a function  of  time  and  the 
phase  of  the  cycle. 

These  cycle  velocities  are  stored  in  a one 
dimensional  array. 

Since  they  are  specified  at  one  second  in- 
tervals of  time,  their  array  location  also 
specifies  the  cycle  time.  RDEPA  stores  two 
cycle  points  per  word  to  save  core  space. 
This  is  the  reason  the  velocity  array  is 
only  dimensioned  at  685  words  instead  of 
1370  as  would  be  required  for  the  EPACVS 
cycle  if  one  point  per  word  was  stored. 

EPAVEL  determines  the  next  cycle  point 
based  on  time  and  unpacks  the  required  vel- 
ocity from  the  two  points  per  work  storage. 
EPAVEL  also  prevents  At  from  becoming  less 
than  a specified  value.  The  next  cycle  vel- 
ocity and  At  are  returned  for  use  in  the 
automatic  drive.  See  Figure  13. 
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Any  cycle  with  less  than  1370  points  at  one 
second  intervals  can  be  used. 


SUBROUTINE  RDEPA 
CONSTANTS  READ  IN: 


Name 

Symb  0 1 

De  script  ion 

ACEL 

Rate  of  acceleration  (mph/sec) 

VCRUS 

Cruise  velocity 

DECEL 

Rate  of  deceleration  (mph/sec) 

NSTOP 

Number  of  stops  per  route 

RTLNGT 

Route  length 

TDWELL 

Dwell  time  at  stop 

VARIABLES  USED: 

TA 
TC 
TD 
DTD 
TE 

DLNGTH 

ITEML,KPLACE, 

NUEL,  KREM 

EQUATIONS: 

TA  = VCRUS/ACEL 
DTD  = VCRUS/DECEL 

TC  = (3600.  * DLNGTH  - .5  (DTD^DECEL  + TA^  * ACEL))/VCRUS  + TA 
TD  = TC  + DTD 
TE  = TD  + TDWELL 

CONSTANTS  STORED: 

IVEPA  (I)  Array  holding  target  velocity 

NVEPA  Length  of  run  (sec) 


TA  Time  acceleration  stops 

TC  Time  cruising  stops 

TD  Time  deceleration  stops 

Time  spend  deceleration 
TE  Time  of  one  cycle 

Distance  traveled  during  one  cycle 
Variables  used  to  pack  array 
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SUBROUTINE  EPACALC 


INPUT  VARIABLES: 


TA 

Time  acceleration  stops 

TC 

Time  cruising  stops 

TD 

Time  decelerating  stops 

TUTIME 

Present  time  interval 

OUTPUT  VARIABLES: 

RVEL 

Target  velocity  at  time  Tutime 

SUBROUTINE  EPAVEL 
INPUT  VARIABLES: 

Program  Name 

Symbol 

Des  cription 

TIME 

-4- 

Time  from  start  of  driving 

OUTPUT  VARIABLES: 

VEPA 

V 

p 

Next  required  cycle  velocity 

BELT 

Time  difference  between  next  cycle 

ICYEND 

point  and  current  time. 

Used  as  a flag  to  indicate  the  end 

OTHER  PROGRAM  VARIABLES: 

of  the  cycle. 

ITEM2  KPLACE 

KREM , 

Variables  used  to  unpack  two  cycle 

ITEMl,  IVEL 

velocities  per  word  of  core. 
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FIGURE  12.  RDEPA  FLOW  DIAGRAM 
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BUS  Slf'ULATieU 


1 

B 

* innnc  RDEPA  **** 

SUBROUTINE  PDL'PA 

3 

A 

-if- 

17  N6V  1976 

6 

reaps  in  epa  data 
> • 

*; 

8 

C6N'^!0.\  /C0NTR  = iL/  GaIN>DELMIN^NVEPA>  IVEPA{685  ) 
* ACEL- ACCELEPAT  I PN  ( mPH/SEc:  ) 

q 

10 

C VCRUS-CPUISINS  VELOCITY 

C DECEL-DECELERAT I ON  FT/SEC«*2 

1 1 
12 
15 

lA 

C NSTPP-NUMBER  OP  STOPS 

C RTLNoT-pPUTE  LENGTH(KILES) 

C calculates 

C TA  TIME  ACCELERAT  I 0‘j  STOPS 

16 

z Tc~rrFr~CRui SING  stops 

c td  time  decelerating  stops 

1 1 
18 

TD^alll-1  n^E  A'T'niTE'DUS  STOP 
> TE-Tp-'E  Eor  one  cycle  =TIDLE  + TD 

I'J 

20 

CTETTri  P-LLNGtP  OF  E ACrTll  YcLE  EPi  ILLS) 

* 

~ZT 

22 

CaM'^ITKr-7EP7C:sTT7--VCT^US . Ai:rfTT)rcrL  TD~aEL L 
CONMON  /STOPPER/NSTOP 

2'5" 

2'^ 

^ 

100  F^‘R‘V.T  ( PEE,  3/  I8,2F8*3) 

26 

26 

990  EORmat ( 1 7HEPA  DATA  F6LL0WS  ) 

1000  ^-'ORMaT  ( V / 5HACEL  = > F5  . E,  2Y,  7M  DE CEL  = / F 5 c p , 2X>  6P VCPfiS  = i F5  . ?>  2V 

2 7 
28 

1 6HN'ST0P  = / I ?X  / 7NRTLI^iGT  = / 8 5. 2^  2XWPTDWELL  = , F5.  ? ) 

1005  format  ( 3HTA^/  F7. 3>  2X^  3HTC  = > F7. 3/  2X  i 3hTD  = i F 7 . 3 ^ 2X  . RhTE  = .*  F?  « 1 

20 

30 

31 

32 

1 AHDT0=>F6.3)  V 

1010  FOR''A  r ( y>  1 3 ( I 7/  2X  ) > I 7 ) 

1015  F ORMAT  ( .^,h:A/EPA  = , 15  ) 

1020  format { 1 2HEND  EPA  OATA) 

33 
3 A 

read  iK  Cycle  information 

36 
3 6 

read  1 00^  ACEL . VCRUS^  DECEL  W^STOP^  RTLNGTi TDWELL 
PRINT  990 

37 

38 

PRINT  1000, ACEL/ DFCEL^ VCRU5/ NSTOP/ RTLNGT>  TDXEI.L 
DLNGTM  = RTLNGT/FLOAT ( NSTOP ) 

39 

AO 

ta  = vc;rus/acel 

DTD--=VCRL'G/0ECEL 

A1 

A? 

TC  = 0.5MDTDO- D-^DECEL  + TA«TA*ACEL) 
TC  = { 3^-00.  O^-OLNGTU  -TO/VCR'US  + TA 

't3 
A A 

T D = TC  + DTD 

TE  = TD  + TD.-'ELL 

^5 
4 6 

P'R  I NT  1 CC05,  t A # T C/  TD-»  TE  / DTD 
RVEL  = 0»0 

A7 
A 8 

PH  me  = O.Q 
DO  5 I = 1,635 

O',  o 
^ IT) 

Tvepa ( I ) =0 
5 continue 

5 1 
52 
'b^3‘ 

DO  32  I = 1,N5T0P 

TP  FLLA'T  (■  I ) ---Te 
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BUS  SIMULATION'  PKNGPAM 

5 ^ ; Tu  = t 

i 55;  10  CONTir.jr 

56;  PTTmE  '"‘'PTIME  t r'.'c 

57;  TUTIME  = PJIME  - TU 

5‘8;  CALL  EPACAXcl  PVr'TTfUTIME^  TA^TC/TD) 

59:  nvel=pvel«io. 

“biT]  Jj-’TI.'-F  = ^Tl'^'P ' ~ 

6i:  KPLAcF  = IPTI"E/2 

6 Ti  RTTET'I  = I’P'TT'-'  E "-~2  * K PL  A”C E 

63;  IP(KREM)  A0/40/P0 

; 5TT  "CO' NT I'  f U'E  ^ 

65;  I VEFA  (K^lacE  ) =NVEL*AC96+lTEf^Pl 

~GF\  GTTTTTO ^ 

67:  20  CONTImje 

"6TT  rTT^^T='KVEIT^ 

69:  30  continue 

TOl  ITT PTIT^  + 1.0  .GE.  TR)  GO  T6  32 

7i;  GO  T0  10 

~TP.  3’2'"CBnTInue 

73:  * 

7A ; rnri^ e n ) 

75;  33  CONTINUE 

TrTT  I V E P A ( K^TOa CT)”  =~rTEFPl 

77;  34  continue 

78;  N = PTIKE  + 1,0 

79; NN  = Q.5*N 

So:  PRifJT  lOlBjNN 

_SJE? K = 0 ' 

82;  DO  60  J = l/NNil4 

83 ; < = k-  + lA 

84:  IF(K  - NN)  55/55/50 

85 ; 5 0 K = NN  

86;  55  PRUT  1010>  ( IVE^AI  I ) ,J=j/K) 

87;  60  CONTINUE 

"88:  PR"lNf"lC20 

83; NVEPArNSTOp^tTE 

30 ; RETURN 

91 : END 


o ^ ‘..f  I-  ‘ 1 ‘j  •■'i  P t<  n o r<  A M 


A 

}. 

?. 

7^ 

■»  * ♦ t-PACALC 

SU370UT  1 1\2  lPACALC  ( RV2L  / TUT  1 KE>  TA,  TC/  TD  ) 

3 

h 

^ 17 

t'.'OV  1976 

U 

6 

(_»**■*■ 
Q * * « •> 

KLTUP.VS  The  velocity  the  VE^UCLE  f"U5T  REACH  I\'  T+1  SECf 
INPiJT  FROM  RDEPA  IN  CONYqN  Is  VCRuS-CRU I S I NG  SPEED 

7 

r » * * >!• 

A C c L - A C C c.  L E RATI  0 f\ 

8 

D E C E L “ D E C E L E R A T I ON 

'j 

(3  » »■  •* 

TA-lRT  The  acceleration  cyCle  ends 

10 

(;  -X-  * -jt  * 

tc->tihe  the  Cruising  cycle  ends 

11 

r ->  * «- « 

TDTTr'ET'HE  3ECELERATI3N  CyCLE  ENDS 

12 

* 

tidle~tiy,e  at  bus  stop 

I’T 

“T t ■TTTfTTTT; E c\e  CYCLE  =TD  + TIDLE 

1^ 

JJ- 

TUT  IDE  = PTINE  - TU  FROM  RdEPA 

lb 

C 

16 

common  /EPASH/  VCRUS/ ACEL^DECEL/  tdwell 

1 / 

1 S 

It^lTuTlHE-TA)  1C>2C/2C 

10“ 

20 

inTUTIME-TC  ) 30^  AO;  40  . 

20 

40 

I F ( TUT  r-'E"TO  ) 50;  60/ 60 

i 

P -fr  *■  -J*  -i< 

A L C E 1.  E R A 1 I N G _ 

22 

lO 

RVEL--RVEL  + ACEL 

2 b 

ThTTO  57J~ 

2't 

f7  # # « * 

LETS  rRiilS^ 

2 b 

30 

RVEL.  = VCPUS 

28 

goto  90 

27 

Qn  * if  « 

decelerate 

p8 

50 

CONTINUE 

29 

kvel=rvel.decel 

O V 

!E(t.VEL)  60’5v9;90 

31 

C -»t  ■*■■«- » 

stop  the  bus 

32 

60 

continue 

33 

PVEU=C 

3 4 

50 

CONT INUE 

3 b 

NVEL-PVEl-.^lQ-.'O 

38 

RETURN 

3 7 

2 ND 

FIGURE  13.  EPAVEL  FLOW  DIAGRAM 
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gJS  SIMULA]  FRnG"A r1 ; ; 

II*  *•■**■*  f.  A V t L * * * * 

_ _ S_Ub_^Sli  [ I Ni:  _ E^AVEL  (TIME.  VEE'A  . ICYEND.DELT  ) 

3:  c*  EE  ru'i'-NS^’ VE-A  Xm’d'  eeltTand  ICY^ 
u:  VEPA  Tm:E  mext  cycle  target  velocity 

L'l  C**»*»“5'ElT  Tr;£  A'TeUNT'’  LF' T IME’  T'o  RE.TCH  TFE  CYCLE  VEI  HCITY 
6:  o****-  icyfmd  Flag  to  indicate  the  end  of  the  run 
/:  cot-mgn  /Control/  GAiN.DELMfN.NVEPA.  ivepa(68?i 

SI  I=TIME 

-g-j  n^ITT  ^ 

in;  16  continue 

Tl' ; D E L T = P"L  L A T'(  I I ) - 1 1 M E 

12:  If^(CELT-DELMlN)  15.  10>  10 

TTi  nr  rr^n  + 1 . ^ ^ ^ 

1A:  IF( I I~NvEPA)7.7.6 

T51  i^“cermNuF  ^ ^ 

16:  II=nvfpa 

-rr.  IXTEK  o'^i  ^ ^ ^ 

18:  GG  Tp  10  . • 

Tm  rxTrrrrNTjL  ^ 

20 ; GO  To  16 

■'2TT  IO-XDNTIiTUl  ^ 

ee:  kplace=ii/2 

pA;  IF (YREM ) 35, 35i 30 

25:  30  CONTINUE 

2 6 3 I_T  ^I  V_E  P K P L a C EjJ_L_ 

27 : I TEMP?= ( I TEMP1/A096 ) *A09A 

2 ?>j LYLE lU EaIt!  1 - 1 TF>n2 

'n':  GO  fb  Co 

,v0;  35  CONT  I Nur ^ 

31  : I TE^m  = 1 VE^A  ( KPLACE  ) 

32; lX^k=iJjr/R i /A096 

33;  ^0  continue 

_3  Aj P A_=_I_V F L_/X0j? 

35;  return"'"'  ’ " ' 

36J END , 
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3.3.21  Rear  Axle  Efficiency  - RAEFF 
PROGRAM  NAME:  RAEFF 

TYPE  OF  SUBROUTINE:  System  Computation 


DESCRIPTION: 

This  subroutine  calculates  the  rear  axle 
efficiency  as  a function  of  driveshaft  torque 
and  speed.  It  returns  the  rear  axle  output 
torque  for  use  in  the  vehicle  dynamics 
subroutine  (VEDYN) . 

MODELING: 

This  model  is  basically  similar  to  the 
transmission  efficiency  model  (see  TREFF) 
except  for  the  manner  in  which  the  data  were 
curve  fit. 

A plot  of  the  efficiency  curves  as  a function 
of  torque  at  constant  speed  is  given  by 
Figurel4.  Since  all  values  for  efficiency 
are  between  0 . 9 and  1.00,  each  data  point  is 
modeled  as  0.0  plus  a change  An • 

n =0.90+  An 

The  An  is  calculated  using  a second  degree 
polynomial  as  a function  of  driveshaft  speed. 

n = 0.90+  C^  + C2Npg  + CjNpg 

The  three  coefficients,  C^,  C^,  C^,  are 
modeled  over  the  torque  range  using  poly- 
nomial fits  up  to  degree  6.  The  resulting 
curve  fit  is  a three-dimensional  surface  as 
shown  in  Fig . 15. 

When  the  driveshaft  torque  falls  below  the 
lower  boundary  to  which  the  curve  fit  can  be 
reasonably  extended  based  on  available  data, 
the  efficiency  is  exponentially  interpolated 
between  the  efficiency  at  the  boundary  for 
the  given  speed  and  zero  (Eqs.  2 and  3).  If 
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the  driveshaft  torque  is  beyond  the  range  to 
which  the  curve  fit  can  be  reasonably 
extended,  the  efficiency  is  assumed  to  be 
the  same  as  that  at  the  boundary.  Since  the 
latter  case  happens  very  seldom,  the  sole 
purpose  of  the  provision  is  to  prevent 
incongruities  in  the  program  if  it  does  occur. 

A table  of  rear  axle  efficiencies  generated 
by  the  program  is  presented  in  Fig. 16. 

It  may  be  noted  from  the  flow  and  block  dia- 
grams in  Figs.  17  and  18  that  the  driveshaft 
torque  can  be  changed  a number  of  times  in 
this  subroutine.  These  are  for  purposes  of 
calculating  the  efficiency  only,  and  the 
original  value  of  driveshaft  torque  is  re- 
stored at  the  end  of  the  program  through  use 
of  a dummy  variable. 

EQUATIONS:  1)  = f(NQg,Tpg) 

For  driveshaft  torques  below  range  of 


In(l.-PRA^) 


2) 

K - 

T 

DSl 

3) 

pRA  = 

1.  - 

exp (K-Tpg) 

4) 

T 

^RA 

T 

^DS 

^RA  ‘"^RA 

INPUT  VARIABLES: 

Program  Name 

Symbol 

Description 

T9  IN 

Nps 

Driveshaft  speed 

T9IC 

^DS 

Driveshaft  torque 

T9I1GR 

^^RA 

Rear  axle  ratio  equivalent 
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OUTPUT  VARIABLES: 


T9I1 

’^RA 

Rear  axle  efficiency 

T90C 

T 

^RA 

Rear  axle  output  torque 

VARIABLES  WHICH 
None 

MUST  BE 

STORED  IN  MEMORY 

OTHER  PROGRAM  VARIABLES: 

T9DC 

TdSj, 

Dummy  driveshaft  torque  variable 

T9DN 

Dummy  driveshaft  speed  variable 

T9DCL 

Torque  at  lower  boundary  of  data 

T9DCU 

T 

Torque  at  upper  boundary  of  data 

DSu 

INTERP 

FLAG 

Flag  set  to  determine  if  in- 
terpolation is  necessary 
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ORfVESHRFT  TORQUE  (FT-LB) 


FIGURE  14.  REAR  AXLE  EFFICIENCY 
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Axle  Efficiency  Surface 


AouaTOTjja  ST^V 
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FIGURE  15.  REAR  AXLE  EFFICIENCY  VS  TORQUE  AND  RPM 


Driveshaft  speed,  rpm 


'enbaoq  :^gE^s^ATaa 
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FIGURE  16.  REAR  AXLE  EFFICIENCIES  GENERATED  BY  RAEFF  ( THE  CURVED  LINES 
INDICATE  THE  LIMITS  OF  EXPERIMENTAL  DATA.) 


UtriHC  MIYCSMAPT 

IMfO  tOUMOAKT  AT 
40M  AM  AM  TMI 
IPTKtlHCT  CALCUUnOa. 


mis  TO  OCTtRNiNf 
IT  THC  DAIVeSHATT  TOAQUf 
IS  WITNIM  DATA  AOUNOS 


(TfiCiCMCT  CAbCUtATlOH 
TOA  TOAOUf  MLOV 
•ATA  MUMMAT  USMC 
wriAmATion 


MMtIll  M TNI  UITNIG 


FIGURE  17.  rear  AXLE  EFFICIENCY  FLOW  DIAGRAM 
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FIGURE  18.  REAR  AXLE  EFFICIENCY 
BLOCK  DIAGRAM 
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I BJS  Sr^iJLATieN  PROGRAM n 


— 

1 

? 

•»  »»*♦  RAtFF  **** 

SUBFeuTiNE  3'AEFF(TglC/TbIN/T91  lGR.T9aCiT9ll) 

3 

4 

C BUBrvQUTiNE  TO  DETER-"^I\E  REAR  AXLE  EFFICIENCY. 

C----  dan  KAPELLEN  10/73i  REVISED  2/74 

6 

C THIS  SUBROUTINE  CALCULATES  THE  REAR  AXLE  EFFICIFkty  AS  A FUNCTION 

~T 

8 

C L)RlVESHAf-T  TORQUE  AND  S^EED.  IT  RETURNS  THE  REAR  AXLE  OUTPUT  T^ 

C USE  IN  THE  VEHICLE  DYNAMICS  SUBROUTINE  (VEDyN).  THE  VARIABLES  1 

10 

are  as  FOLLOwSi 

C INPUT  VARIABLES 

1 1 
12 

C I9IC-DRfVES^^AFT'  TORQUE  ^ ~ ' 

C T9IN-DRI  VES-^A^’T  SPEED. 

TT 

14 

C 1 9l IGR-EuUl VALENT  REAR  AXLE  RATIO 

c OUTPUT  variables -----I- * 

It) 

16 

C I911-REAK  axle  EFFICIENCY. 

C T90C-REAR  AXLE  OUTPUT  TORQuE 

1 / 
IS 

E other  PETOISrAH  variables 

C T9DC-DU^^•NY  DRIVESHAFT  TORQUE  /USED  TO  PRESERVE  VaTuE  OF  T9IC. 

19 

20 

L-""“  1 UD  \ " uu'-U  Y 3.R  I VE  3H  AT  T SPEED^USED  TO  PRfcTSERVE  VaI-IiE  OF  T9IN. 
C T9DCL-L0NEST  TORQUE  AT  VhlCH  CURVE  FIT  IS  CONSIDERED  VALID. 

~2T 

22 

C TDDCU-HToHE^  lyKQuu  AT  wHICH  CURVE  FIT  I 5“C0NS I DERED  VALID. 

C INTERP-FLAG  SET  TO  INDICATE  1 NTERPOL AT  I ON  IS  NpCFSSARY  BETwEEN  C 

ci3 

24 

C SET  DIJN^^Y  DRIVESHAFT  TORQUE. 

25 

26 

T9DC=T9IC 

C USE  the  absolute  VALUE  OF  DRIVESHAFT  TORQUE  TO  CArCULATE  THR  EFF 

27 

23 

T9IC=ABS(T9IC) 

C IF  DRIVESHAFT  SPEED  EXCEEDS  4000  RPl^i  USE  40C0  RPM  TO  CaTcuLATE 

29 

‘ ‘J 

IF(T9IN-4C30. )20^20>21 
21  T9DN=4000. 

S 1 
32 

GO  TO  22 
30  continue 

33 

34 

C SET  DUMMY  DRIVESHAFT  SPEED. 

T9DN=T9 I N 

35 

36 

22  CONTINUE 

c define  the  upper  and  lover  Tei^cUES  FOR  WHICm  The  c'uRVF  fit  is  VA 

37 

38 

IF  (T9DN-1200. )25i25/26 
25  T9DCL=25* 

33 
4 0 

T9DCU=1200. 
GO  TO  31 

41 

42 

26  T9DCL= »0477*T9DN-53. 5 

T9DCU  = 20?4. +T9DN^(  (-.95  + . 0001  37*T9DN  ) 

<+3 

31  CONTINUE 

c----  IE  The  torque  is  less  than  the  LONER  BOUND/'  SET  TWE  TORQUE  EQUAL 

^ b 
^6 

c UttaER  B‘’'Und  value  of  torque. 

IF ( TgiC-T9DCL  >30/  40/  40 

h7 

h3 

c then  set  The  Interpolation  flag  to  i. 

1 9 

50 

1 nT2rp  = 1 
GO  to  100 

li ' 

40  continue 

C IF  the  TOPQUE  is  greater  than  the  upper  BOUND/  SET  IT  EQUAL  TO  Ti 

CU)90/!)'0/ 5b 
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. q r’^ULATlOK  PRPG^’AM 

' TTO  I 130 Cu 

_.,  I f',  the  0«S>  THRouf  FALLLS  BETw'EEIN  The  T'a'3  BnjK'HS  SET  THC  F 


f)5 

57 

90  I:OTcRP  = 0 
IOC  CONTInjUE 

57 

59 

T.T 

61 

C----T0  SAVE  ^-ULTIPLICAtIGKS^CALCULATE  THE  MULTIPLE  P9«.ERS  OF  D.S.  Te 
HI  •-T9IC*T9IC 

H3:=T9IC^H1 

H3=T9IC*H3 

b'd 

63 

H4=T9IC-*-H3 

H5=T3IC*H4 

Q ^ 

65 

H6  = T3DR-^T  90'-; 

c----  calculate  the  three  ccefeicieuts  as  a function  of  toruqe. 

66 

67 

Cl  =■- 1 . 867L-E  + ( 1 • 1 3lHr  - A)*T9IC+(it64  91E-6)  *H1+  ( - 9 ♦ 0929E-9  ) *H2 
1 + ( 1 * 68SE  - 1 1 ) ^H3  + ( “ 1 . 5251E"  1 4 ) ^sM4  + ( 3.7756E"  18  ) »h5 

6ri 

69 

Ct:=T‘.  n4l?E'*5  + (7TB"7r31E-5  ) *T9R:+  ( - 2 . 91  37E- 1 0 ) ^ H 1 + ( 3 ♦ 7934£^  1 3 ) »H3 
3 +{-1‘6109E-16)^^H3 

~TO 

71 

'C3^ZT3793’l-94-(-7.64  01E“11  ) «-T9  I C+ ( 3 » 4 1 SE  - 1 ^ ) #H  1 + ( - 3 . 44  USE  - 1 6 ) *H2 
3 +(7.5703E”20)*H3 

7 ci 
73 

C---“  LAlCULATc.  T-<E~EFTTc  I ENCV  AS  A EUKCTIN  ^F  D,S.  SPFEO  AND  THE  3 C 
T9Il=Cl  + C3#T9r)N  + C3*H6+.90 

7 4 
75 

c LHEXTTThE  iVTERpOLAT  ion  FLAG* 

IF  ( INTERP) 1 10/ 1 10/ 105 

~T(P 

77 

7S 

79 

c ‘Cnn;  n-AN  o~inteRp'olate  ihe  EFFiciENCv  as  a function  of  d.s. 

c bet^vepn  Zero  eff,  and  the  efe,  calculated  at  tht  curve  pit  poun 

105  CONTINUE 

IE( 1 .CC-T9I 1 ) 106/107/107 

8 C 

51 

106  continue 

T9I 1=1.00 

S3 
3 3 

107  continue 

c----  THIS  INTERPOLATION  USES  AN  EXPONENTIAL/  EIRST  rAfcULATE  TMP  CON 

54 

85 

C----  used  in  II-iE  exponential  BASED  ON  THE  TORQUE  AND  FEE  AT  THE  CURV. 
SK=AL0G( 1 .-T9I 1 )/T90CL 

5 6 
87 

C. THEN’  calculate  THC  INTERPOLATED  EEEICIEN'CY# 

c----  Then  calculate  ThC  interpolated  EEFICIENCY, 

85 

S9 

TS 1 1 = 1 . -Exp ( SR*A3S ( TSDC) ) 

C---~  RESET  The  DR'IVESHAFT  TORQUE  TO  ITS  ORIGINAL  VAfur’. 

90 

91 

no  TOfOTSDC 

C calculate  THE  REAR  AxLE  OUTPUT  TORQUE. 

93 

93 

T90C  = T9lC^t9inT9I  IGR 
return 

94 

END 
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3.3.22 


Subroutine  to  Interpolate  with  Equally  Spaced  Grid  Points  - 

RIXON  2,  RIXON  22 

SUBROUTINE  NAME:  RIX0N2  and  RIXON22 

TYPE  OF  SUBROUTINE:  System  Computation 

DESCRIPTION:  The  subroutine  RIX0N2  is  used  to  evaluate 

a function  of  two  variables  from  a table  of 
function  values  at  equally  spaced  grid  points. 
The  steady  state  torque  as  a function  of 
engine  speed  and  throttle  setting  is  one 
such  function.  Fuel  consumption  as  a func- 
tion of  steady  state  torque  and  engine  speed 
is  another  function  of  this  type. 

MODELING:  The  function  values  are  stored  at  the  inter- 

sections of  a lattice  network  whose  x and  y 
increments  are  different  constants.  The 
four  function  values  at  the  corners  of  the 
rectangle  which  surround  the  input  point 
are  found.  Interpolation  is  used  in  the  x 
direction  to  obtain  two  function  values 
which  bracket  the  function  value  at  the  in- 
put point  in  the  y direction.  Then  linear 
interpolation  is  used  again  to  approximate 
the  function  value  at  the  input  point.  If 
the  input  point  exceeds  the  limit  of  the 
lattice  network,  extrapolation  from  the 
closest  rectangle  is  used. 

EQUATIONS:  S/L 

INPUT  VARIABLES:  X - the  X coordinate  at  which  the  func- 

tion is  to  be  evaluated 

Y - the  Y coordinate  at  which  the  func- 
tion is  to  be  evaluated 

OUTPUT  VARIABLES:  Z - the  approximated  value  of  the  func- 
tion at  the  point  (X,Y) 

OTHER  VARIABLES:  IA(50,17)  - the  table  of  function  values 
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at  the  intersections  of  the 
lattice  network 

NOTE:  The  first  row  of  lA  contains  in- 

formation describing  how  the  data 
are  stored  in  the  rest  of  lA. 

The  second  row  of  lA  and  the 
first  column  of  lA,  save  for  the 
element  in  the  first  row,  do  not 
contain  function  values  at  the 
grid  points. 


PROGRAM  VARIABLES: 


IA(1,1) 

is 

the  minimum  X 

value 

IA(1,2) 

is 

the  maximum  X 

value 

IA(1,3) 

is 

one  less  than 

the  number  of 

X values 

IA(1,4) 

is 

the  minimum  Y 

value 

IA(1,5) 

is 

the  maximum  Y 

value 

IA(1,6) 

is 

the  one  less 

than  the  number 

of 

Y values 

IA(1,7) 

is 

the  Z value  multiplier 

IA(1,8) 

is 

the  Z value  divisor 

DELX 

- X 

constant  increment 

DELY 

- Y 

constant  increment 

CONSX 

- X 

interpolation 

factor 

CONSY 

- Y 

interpolat ion 

factor 

11  - The  index  for  least  Y lattice 

points 

12  - The  index  for  greatest  Y lattice 

point  s 

Zll  - Function  value  at  least  S,  least 
Y lattice  points 

Z12  - Function  value  at  least  Y,  great- 
est X lattice  points 

Z21  - Function  value  at  greatest  Y, 
least  X lattice  points 

Z22  - Function  value  at  greatest  Y, 
greatest  X lattice  points 
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SJS  Sl^'JLATieN  PF^BGRAK 


1 

? 

S'JBRDUTI^F  -1IX8^'2(X/Y>Z»  I A-) 

3 

G 3U3R0UTINE  TO  IMERPOLATE  EC'JALLY  SPACED  POINTS 

4 

C P.R.RADTKE  2/19/74 

5 

DI.'IENSICN  1a  (55/ 17) 

6 

R^IN'X=IA(1/ 1 ) 

7 

K ■ A X X 1 A ( 1 ^ c. ) 

8 

RN'IRCX=IA(  1/3) 

9 

R"^I\'Y=lA(i/4) 

10 

RMAXY= I A ( 1/5) 

11 

R'^IRCY=  IA(l  / 6) 

12 

R^ULZ=I A{ 1/ 7) 

13 

^3IV^=1A( 1/A) 

1^ 

HXINC=IA ( 1/ 3)-l 

1 5 

r-TTITTUTI  A n / 6 ) - 1 

16 

C 

1/ 

C 

18 

C COMPjTE  X INDICES 

19 

D L L X = ( R i A X X - R ' ' I : V X ) / R N I N C X 

20 

J1=(X-RYINX)/DELX+1. 

21 

IFTTJl-  1 ) 5/  lOTTO 

22 

5 Jl  = l 

2 3 

1 0“arvTT^  ^ 

2i* 

IP(  Jl-Y,XlX^r)2C/?0/  15 

25 

15  J1=’TXINC 

c 6 

20  CONTINUE 

27 

Cr3NSx=  ( X - ( J1  - 1 ) *DELX-RiiI  NX  ) /DELX 

£ 8 

C X DATA  starts  IN'  column  2 

29 

J 1 ^ J 1 + 1 

3C 

J2=J1+1 

31 

C 

32 

C 

33 

Q COMPjTE  y indices 

34 

DLLY=  (R‘^AXY-R'MNY)/R\iNCY 

35 

1 1 = ( Y-R'^ilf'.Y  ) /DELY  + 1 . / 

■36 

IP( 1 1-1 )25/30/30  ^ 

37 

25  11=1 

38 

30  CONTI  NIUE 

39 

IF(  1 1 -MY  I Ng ) 40/ 40/ 35 

40 

35  I1  = ‘^YINC 

41 

40  continue 

4? 

CONSY= (Y- ( i 1-1 )^DELY-RNINY)/DELY 

4 3 

C Y data  SIARTS  In  R6>v  3 

4 4 

I 1=  1 l-f2 

4 5 

12=11+1 

4 6 

C ' 

4 7 

U 

4? 

C Z INTERPOLATION 

4 9 

Z 1 1 = I A ( I 1 / j 1 ) 

50 

Z12=IA( 1 1/ J2! 

51 

Z21  = 1 A ( I 2/ jl ) 

52 

Z22=IA( 12/ J2) 

5 J 

z r=  z n + c 0 N s X * ( z z 1 1 ) 
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PJ3  i')\'  pr-3G;<am 

hv;  ZL>=Z2l+CUNSX-«  (Z2E-ZP1  ) 

_5  o_: z = zj_+  r.  d n s y ♦ (_z_p  - z ij 

56  r " "Z  = Z * R fZijL z / R J i V Z ’ 

7;  ■ RETURNJ 

j8':  E!\b 
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3.3.23  Subroutine  to  Account  for  Effect  of  Tire  Expansion  - TGG15 


PROGRAM  NAME:  TGG15 

TYPE  OF  SUBROUTINE:  System  Computation 

DESCRIPTION:  This  program  determines  a "corrected”  drive- 

shaft  speed  and  an  "equivalent"  rear  axle 
ratio  based  on  vehicle  speed. 

MODELING:  As  vehicle  speed  increases,  centrifugal  force 

causes  the  tire  diameter  to  increase.  There- 
fore, for  a given  vehicle  speed,  the  drive- 
shaft  speed  is  less  and  the  driveshaft  torque 
is  greater  than  it  would  be  if  the  tire  main- 
tained the  same  radius. 

A table  of  driveshaft  speeds  obtained  ex- 
perimentally at  10-mph  increments  is  read 
into  memory  in  the  initialization  subroutine 
(INICON).  The  tire  expansion  subroutine, 
based  on  vehicle  speed,  linearly  interpolates 
between  the  stored  points  to  obtain  the  cor- 
rected or  actual  driveshaft  speed.  Although 
the  tire  expansion  is  not  linear  (it  is  a 
function  of  w ) linear  interpolation  is  suf- 
ficient since  the  change  in  tire  radius  is 
not  large  (see  Fig.  19). 


An 

equivalent 

rear  axle 

ratio 

is  calcul 

ated 

ra 

ther 

than 

a 

new  tire  r 

oiling 

radius  b 

e- 

cause 

this 

mak 

es  the  effect  of 

tire 

exp 

an  - 

s i 

on  e 

as  ier 

to 

recognize 

when 

analy z 

ing 

re  - 

su 

Its  . 

Si 

nee 

data 

are 

general ly 

not  availab 

le 

(or 

ne 

cess 

ary) 

ove 

r 100  mph. 

this 

mode  1 

is 

only 
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accurate  to  100  mph.  To  keep  the  program 
running  in  the  event  100  mph  is  exceeded, 
the  equivalent  rear  axle  ratio  is  assumed 
to  be  the  same  as  the  iteration  before  100 
mph  was  exceeded.  The  driveshaft  speed  is 
then  calculated  on  this  basis.  This  is  the 
function  of  statement  number  15  in  the  pro- 


gram: 

listing 

and  flow  diagram  (Fig.  20). 

EQUATIONS: 

5280 

60 

^^RA 

2R^ 

^DS 

= f (V) 

N 

*^^RA  N 

DS 

DSy 

INPUT  VARIABLES: 

Program  Name 

Symbol 

De  script  ion 

VVOS 

V 

Vehicle  speed 

OUTPUT  VARIABLES: 

T9IN 

^DS 

Actual  driveshaft  speed 

T9I1GR 

^^RA 

Equivalent  rear  axle  ratio 

T8I1GR 

Nominal  rear  axle  ratio 

VARIABLES  TO  BE  STORED  IN  MEMORY: 

T8INV(J) 

'"dSj 

Table  of  driveshaft  speeds 

VVIDRR 

R^ 

Tire  radius 

OTHER  PROGRAM  VARIABLES: 

Program  Name 

Symbol 

Descript  ion 

T8DN 

^DS 

Uncorrected  driveshaft  spe^ 

T8DNHI 

Upper  interpolation  point 

T8DNL0 

Lower  interpolation  point 

DIFF 

Diff 

Difference  between  current 
vehicle  speed  and  vehicle 
speed  at  lower  interpola- 
tion point. 
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DRIVESHAFT  SPEED  (RPM) 


FIGURE  19.  VEHICLE  VS  DRIVESHAFT  SPEED 
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mtEKPOLATION 

TO 

OBTAIN 

ACTUAL 

ORIVESHAFT 

SPEED 


Tire  Growth  Flow  Diagram 


r 


FIGURE  20 . 


BLOCK  AND  FLOW  DIAGRAM  FOR  TIRE  GROWTH 
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JS  SiP'ULATieNJ  PPAG-'AM  OaTC 

C»---  subroutine  IB  CfTER'-’lL’E  EFFECTIVE  REAP  AXLE  RATIO  AND  D,S,  SPEED 

SUBROUTINE  TGG  I B ( V vfi  S / ^ c:  j k,  J9  I 1 GR  ) 
CONNBN  /DGS'’D/  T8I;'iV(l£;l 

5 

6 

CONRBU/kGRT I 0/  TEIlGR 

common  /TIRE/  vvidr'wvvifum, vviFus^vviirF 

7 

P 

C-C--  this  SUnRSuriNE  determines  a 'corrected*  DRtveSUAFT  speed  and  an 

3 

I'O 

C-“-“  'ETUIVALENT'  rear  ax'le  ratio  based  on  a table  of  driveshaft  speed 

C- AS  A FUNCTION  OP  VE'MCLE  SPEED  OBTAINED  FRO[^  EXPCRIMENTAL  DATA. 

1 1 
iE 

C the  PROGRAv.  variables  APE  AS  FOLLOWS/ 

i 3. 
iA 

C --"~-BG-?TIO  BEVEL  GEAR  RATIO 

C VV3S VEHICLE  SPEED* 

lb 

16 

C T9IN---- 'CORRECTED*  DRIVESHAFT  SPEED  TAXING  INTO  ACCOUNT  TIRE  GROW 

1 7 
1 E 

C---"“T9TT17R LCvJIVALCnT  REAR  AxTE  RATIO* 

1.^ 

20 

L 1 6iNV(J)"  IA-jLE  Or  ORlVEbhiAFI  SPEEDS  AS  A FunCTIon  8F  VEHICLE  SFrEC 

C--"-  WIDRR---TIRE  RADIUS* 

C-'P 

22 

C ~TTTn  oFFi  » NC : •■,TN  /ClT"  k A AXLE  RATIO, 

2 b 
2A 

C ^ “ “ To  DR  cC  ElD  ~DR  I V E 5 H AT  T SPEED  • 

C T8DNH  I - -UPPPR  I NTER-'^OLAT  I 0!v'  DRIVESHAFT  SPEED, 

2b 

26 

c-”-”-t.2Dnlo--loaER  interpslat  I on  driveshaft  speed* 

C DIFF.->..-DirPPRENCE  EETaEFn  CURRENT  VEHICLE  SPFFD  AND  VEHICLE 

27 

C-^--  SPEED  AT  LO'/ER  I N lEPPOL  AT  I ON  POINT, 

c--'-”  calculate  T^E  ULC^'l^EctED  DErvECHAFT  speed,' 


Zf  V/ 

TSD^  = 1 A ^CCBA5*VVGS>f  rsi  ISR  /VVIDPR 

3 i 
3? 

C test  IE  The  VEHICLE  SPEED  EXCEEDS  THE  RANGE  OF  THE  TABLE* 

IF( VV0G«1C0.  )5/5/ 15 

33 

C'  '* 

5 CONTINUE 

C DEITERmInE  I I'D  ICES  FOR  UPPER  AND  LOWER  I NTERPO  L A T T ON  SPEEDS. 

3*:^ 
36 
3 7 
32 

UJ=VV03>*i 

C DETERMINE  THE  DpIVeSHAFT  SPEEDS  AT  THE  UPPER  AND  LOWER  INTeRPOLATI 

J J V.I  + 1 

T8DNHI -TSINV( J+1 ) 

39 

AC 

TaDNL0=T8lNV  (J) 
D I P F = V V ft  S - i 0 » J J 

^ 1 
^ ? 

G INTFrRPLLATE  TABLE  FOR  CORRECTED  DRIVESHAFT  SPEED. 

r 9 I N = T 2 D I Jl..  fi  -t- « 1 * O'  ] Fp  w ( T 8 D nH  I - T SD.NL  0 ) 

^ 3 

IF  (T91N-.1)  11/11/10 

C calculate. THE  'equivalent  REAR  AXLE  RATiB  BASED  ON  THE  RATIO 

^ b 
66 

— OE^HE  corr'ected  to  jnccrrected  driveshaft  speed. 
10  T9I  1GE  = T8I  l.SR^T9IN/TSDN 

aV 

A? 

GT3T0  993  ■ 

11  T9I 1GP=T8I IGR 

•t  b 

5 0 

GOTO  998 
15  continue 

B'V 

T9IN  = T9I  1GR;«T3DN/T8I  IGR 
998  continue 
R ET  URN 
END 
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3.3.24  Torque  Converter  - TQCONV,  VELTERP 

PROGRAM  NAMES:  TQCONV  and  VELTERP 

TYPE  OF  SUBROUTINE:  System  Computation 


DESCRIPTION: 

This  subroutine  calculates  the  square  o£  the 
inverse  input  size  factor  and  the  torque 
ratio  as  functions  of  speed  ratio.  The 
converter  input  torque  and  converter  output 
torque  are  then  calculated  for  use  in  sub- 
sequent subroutines.  See  Figure  21. 

MODELING: 

If  the  converter  is  locked  the  speed  ratio 
and  torque  ratio  are  retrieved  from  memory 
in  lockup. 

The  speed  ratio  is  determined  by  dividing 
the  converter  output  speed  by  the  converter 
input  speed.  The  converter  output  speed  is 
determined  from  the  current  vehicle  speed 
and  gear  ratio,  which  are  calculated  by  oth- 
er routines.  This  speed  ratio  is  used  to 
calculate  the  inverse  input  size  factor  and 
the  torque  ratio. 

To  use  this  subroutine  it  is  necessary  to 
input  a table  of  the  torque  ratio  and  the 
square  of  the  inverse  input  size  factor  as 
a function  of  speed  ratio  based  on  exper- 
imental data. 

This  array  called  AWAY  holds  the  speed  ratio, 
torque  ratio  and  inverse  size  factor. 

VELTERP  chains  through  the  speed  ratios  and 
finds  where  the  calculated  speed  ratio  falls. 
A linear  interpolation  is  then  used  to  de- 
termine the  torque  ratio  and  the  inverse 
size  factor. 

The  torque  converter  input  torque  is  calcu- 
lated. This  is  divided  by  the  Bevel  Gear 
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ratio  to  determine  the  engine  torque.  The 
torque  converter  output  torque  is  then  de- 
termined. 

If  the  torque  converter  is  locked, the  torque 
ratio  and  speed  ratio  is  retrieved  from  mem- 
ory and  the  engine  output  torque,  torque 
converter,  input  torque  and  output  torque 
are  calculated. 


Figure  22  shows  a typical  curve  of 
ratio  as  a function  of  speed  ratio 
23  is  a curve  of  the  square  of  the 
size  factor  as  a function  of  speed 


EQUATIONS  USED:  1)  For  speed  ratio 

SR  = 


torque 
and  Fig 
inverse 
ratio . 


2) 


For 


Cl 


input  torque 

= ^ ^/j^2 


3) 

4) 

5) 


For  output  torque 

T, 


CO 


= T * TR 

ici  IK 


VARIABLE  NAME 

ACTORQ 

BAON 

LOCK 

SSTORQ 

TAON 

OUTPUT  VARIABLES 


E 

SYMBOL 


For  flywheel  torque  if  unlocked 
^E  " '^CI^'^^BG 

For  flywheel  torque  if  locked 

T. 


= T - T 
^SS  ^A 


MEANING 


A 

Cl 


ss 

^co 


Cl 


Accessory  Torque 
Converter  input  speed 
Indicates  if  converter's  locked 
Engine  torque 
Converter  output  speed 


CO 


BAOC 

PAOC 

TAOC 
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Converter  input  torque 
Flywheel  torque 
Converter  output  torque 


TAOITR 

TAIIST 


TR 

SR 


Converter  torque  ratio 
Converter  speed  ratio 


CONSTANTS  ACCESSED 


Variable  Name 

Symbol 

Mean ing 

BGRTIO 

^^BG 

Bevel  gear  ratio 

AWAY 

Table  holds  torque  ratio 
inverse  size  factor  as  a 
tion  of  speed  ratio 

and 

func 

LOCAL  VARIABLES 

TAI3IK 

1/k: 

Inverse  size  factor 
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FIGURE  21.  TQCONV  FLOW  DIAGRAM 
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TORQUE  RATIO 
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2.1 


1.8 


'll  5 


-1 .2 
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D.2  0.4,  0..'6  I’id  l.'l 

SPEED  RATIO 


FIGURE  22.  SPEED  RATIO  VS  TORQUE  RATIO 
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20 

15 

10 

0 

5 

10 


STALL  POINT 


I I L. 

.3  .6  .9  1.2 

SPEED  RATIO 

FIGURE  23.  SPEED  VS  1/K^ 
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BUS  G I :'l!LAT  I PROGRAM 


i 

if 

6 

oUS-'OUTINE  TCC0UV(  L C CK  > P A5C>  SST  ORG/ AC  TeRQi  T A6  1 T W j 
C TAIl5R/TAf3^/^Af^^/BA^c>TAeC)  — 

7 

CO^'Ur,,  /BS2AR/  BuRTIO 

8 

IP  (LOCK  .GL-  1) 

9 

C PAOC  = SSTOR-;»ACTORQi 

10 

CBAOC=PApC*B3RTIOj 

IT' 

r‘rAOC  = BAOC9' TA3  ITR  ; 

1 2 

C GOTO  900 

1 0 LON i I f . JL 

TAI  lSR  = TA0N/f3A0N  • , N 

To 

■C7.i:r~VEnTR-(TAIlSR,TA0lTRiTAT3lK)  ' •' 

16 

6AOC=EAONU3AON*TAI3I K 

1/ 

“ FAT3CT'bA0C/3GRne 

18 

TAOC  = BAf:-C*TA01TR 

19 

yCC  C'J^TTTnuE 

20 

999  continue 

21 

RETURN  ■ 

22 

END 
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DA  l-i-- 


US  Sl^^l-’LATieN  PPf^G??AM 

i:  ♦ *♦«*  vllTlrp  ***♦ 

2:  SJ3PeuTINE  vELTFKP(P,r':,T”»  PBK) 

3:  DImENSU'N  ■AA  AY'(  2b/3'’) 

'i;  /tcc/away 

■'"b:  c****  ► t,'3 t c b l l h l d s the  s f e e r a t i e 

a;  It  is  CHAU.EO  THRGUGM  le  FlfvD  iNTERPeLATie^  PRINTS 

-y  . ^ , HtE  SECbNE:  C :LL.r.\'  Ht-LDS  ThE  TORSuE  RATIOS 
g:  r,****  the  third  C3LU*^K  HOLDS  THE  INVERSE  SIZE  FACTOR 

“ST^'rF.TT'R  A TI 3 

10;  C*****  TR  TOKCUE  RATIO 
I rr“(rrinriT~R  S'^^nVTks  Sl7T~rA  cfb  R 
12:  IR(SR  .GT*  A/.'AY(EOj  1 ) ) GOTO  5 

TP.  TT  r^T5  L J.  A,-,AY(1/D)  goto  10 

1-^:  1=0 

15  r G O TO  “20 

16:  5 continue 

-1  p.  TTT^.7aYT2072T  ^ 

la:  rok=anay ( 20/ 3 ) 

-IT.  GTTTi-30 

2o:  10  continue 

"21!  T^^A/.a  V ( ITT) 

22:  R3K=AwAY( 1, 3) 

■?3T  GTTrriTU 

2a;  20  C^^NTivuE 

'25:  1=1 4 1 

^2  (>_} LI  f A..AY  ( I -f  1 jJ  ).GT.  SR ) GOTO  40 

27:  GOTO  20  " ' 

2-S:  AO  CON'TInuE 

25:  bELTx=(SK  - A .:  A Y ( I / 1 )’ ) / ( A WA  Y ( I + 1 ^ 1 ) ^ A a- A Y ( I / 1)  ) 

JLLi TR  = A,.  AY  ( I , g ) 4DE  I,  TX«  ( A_.  A'r'I  Ul/2)-A/.AY(  1 ,2)  ) 

•A*:  R-'A=:A.~AY(i>S)+['£LTx*(A>iAY(I+l/3)"ArtAY  (1/3)1 

2:  30  C ” NJ  I N'UE 

33:  RETURN 

3a;  end 
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3.3.25  Transmission  Gear  Efficiency  - TREFF 


PROGRAM  NAME:  TREFF 

TYPE  OF  SUBROUTINE:  System  Computation 

DESCRIPTION:  This  subroutine  calculates  the  transmission 

efficiency  for  the  gear  in  which  the  bus  is 
running  as  a functionof  driveshaft  torque 
and  speed. 

MODELING:  The  transmission  gear  efficiency  data  are 

modeled  by  a two-dimensional  polynomial 
least  squares  curve  fit  of  the  form: 


n 


n + ^ AT  + AN  ^ AT^ 

0 3 3N  3^2  3^2 

+ 9 n ATAN  + AN^  + ^ AT^ 

3T9N  3j^3  3^3 

+ aNAT^  + AN_AT 

9N9'T  9N'^9T 


where 


n = Gear  efficiency 

n = Gear  efficiency  at  a selected  operating 
° point 

AN  = Driveshaft  speed  variation  about  the 
selected  operating  point 

AT  = Driveshaft  torque  variation  about  the 
selected  operating 


The 


in 

9T 


term 


is 


a measure 


of  the  change 


in  efficiency  with 


respect  to  torque  at  constant  speed; 


a measure 


of 


the  change  in  efficiency  with  respect  to  speed  at  constant 

92 

torque,  etc.  The  represer.ts  a measure  of  the  change 

in  efficiency  with  respect  to  the  combined  torque-speed 
surface.  The  number  of  terms  in  the  equation  could  be 
extended  for  a closer  fit.  This  fit  uses  nine  terms. 


The  partial  differential  terms  become  the  coefficients 
in  the  curve  fit  used  to  model  gear  efficiency  as  a func- 
tion of  driveshaft  speed  and  torque.  These  coefficients 
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are  selected  by  a least  squares  algorithm. 

However,  this  curve  is  only  used  to  fit  the  available 
data.  Provisions  must  be  made  for  cases  when  the  range 
of  the  available  data  is  exceeded.  The  data  do  not  extend 
to  zero  torque  or  zero  speed.  Therefore  reasonable  extra- 
polations need  to  be  made.  The  extrapolation  to  zero 
speed  had  already  been  made  for  the  data  used  in  this  pro- 
gram for  1st  and  2nd  gear  and  these  points  were  incorpor- 
ated in  the  curve  fit.  Once  the  curve  fits  were  made, 
efficiencies  were  calculated  well  beyond  the  upper  and 
lower  torque  bounds  of  the  data  to  determine  how  far  the 
fits  could  reasonably  be  extended  with  respect  to  drive- 
shaft  torque.  The  curves  in  Figs.  24,  25  and  26  show  the 
efficiencies  as  a function  of  driveshaft  torque  at  con- 
stant speeds  for  1st,  2nd  and  3rd  gear,  respectively. 

These  curves  were  used  as  an  aid  in  determining  how  far 
the  model  could  reasonably  be  extended.  Further,  plotting 
the  curves  by  the  computer  gave  a check  of  data  and  inter- 
polation scheme  of  the  program. 


One  of  the  problems  in  obtaining  transmission  gear  ef- 
ficiency in  the  simulation  occurs  because  the  data  give 
efficiency  as  a function  of  driveshaft  torque  and  speed. 
The  speed  is  known  but  the  torque  is  supplied  from  the 
engine  side  of  the  transmission  and  the  driveshaft  torque 
is  unknown  until  the  efficiency  of  the  transmission  is 
known.  To  circumvent  this  problem  the  driveshaft  torque 
is  estimated  using  the  current  torque  into  the  transmis- 
sion and  the  efficiency  calculated  in  the  previous  iter- 
ation. In  both  the  real  time  and  digital  simulations,  the 
entire  program  iterates  often  enough  that  the  change  in 
efficiency  is  not  large  enough  to  warrant  an  iterative 
procedure  to  obtain  efficiency. 


The  coefficients  for  the  curve  fit  equation  are  read  in 
for  each  gear  and  are  stored  in  a matrix.  In  cases  where 
more  than  three  gears  are  used  in  the  simulation,  first 
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and  last  gear  use  the  first  and  third  gear  efficiencies 
respectively  and  all  the  intermediate  gears  use  the  second 
gear  efficiency  model,  since  no  efficiency  data  for  more 
than  three  gears  are  presently  available  . 

The  data  obtained  for  the  transmission  used  in  the  simu- 
lation did  not  include  efficiencies  for  low  torques.  Since 
efficiency  is  zero  when  the  torque  is  zero  some  means  of 
reflecting  the  efficiencies  between  this  point  and  the 
lower  boundary  of  the  data  needed  to  be  employed.  This 
is  done  by  using  an  exponential  interpolation  (see  Eqs . 

3 and  4).  However,  in  the  transmission,  as  has  been  pre- 
viously indicated,  it  is  necessary  to  use  the  efficiency 
of  the  previous  iteration  to  estimate  the  current  drive- 
shaft  torque.  If  the  efficiency  is  allowed  to  be  zero, 
each  succeeding  iteration  will  result  in  zero  driveshaft 
torque  and  the  car  won’t  move.  For  this  reason  the 
efficiency  is  interpolated  between  the  curve  fit  boundary 
and  a small  arbitrary  efficiency  (0.05). 

In  cases  where  the  torque  exceeds  the  maximum  torque 
allowed  for  the  model  the  efficiency  is  just  set  to  the 
value  at  the  boundary.  Since  this  happens  very  seldom 
the  resulting  error  is  not  significant  and  the  sole  pur- 
pose is  to  prevent  incongruities  in  the  program  when  this 
does  occur. 

Shift  criteria  prevent  1st  and  2nd  gear  from  exceeding 
the  speed  boundaries  and  3rd  gear  has  its  boundary  set 
at  4000  RPM  (about  115  mph  for  a 2.75  rear  axle). 

The  curve  fit  equation  (Statement  70  in  the  program)  is 
organized  so  as  to  minimize  the  number  of  operations.  The 
last  statement  of  the  program  calculates  driveshaft  speed 
based  on,  the  new  efficiency. 

A flow  diagram  and  a block  diagram  of  the  subroutine  are 
given  in  Figs.  27  and  28. 
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EQUATIONS: 

1)  Tps  = T(,q  . ■ iTR 

2)  Htd  = n *•  C,AT  + C,AN  C,AT^  + C.AN^  + C^ATAN 

iK  ol  I 3 4 5 

+ C.AT^  + C^AN^  + CqATAN^  + C^AT^AN 
0 / o y 


The  efficiency  interpolation  equation  for  use  be- 
low the  valid  region  of  curve  fit  is: 

= 1.  - .95  exp(K-Tpg) 

where 

ln(  (1.  - 

K = = 

^DS, 


)/.95) 


INPUT  VARIABLES: 

Variable  Name  Symbol 


T9IC 

^DS 

T9IN 

^DS 

TAOC 

^CO 

TBOIGR 

GRtr 

TBOIEF 

Otr 

TBOIGI  BI 


Description 

Driveshaft  torque 

Driveshaft  speed 

Converter  output  torque 

Transmission  gear  ratio 

Transmission  gear  effi- 
ciency (from  previous 
iteration) 

Gear  index 


OUTPUT  VARIABLES: 
Variable  Name 
T9IC 
TBOIEF 


Symbol 

T. 


n 


^DS 

TR 


Description 

New  driveshaft  torque 

New  transmission  gear 
efficiency 


VARIABLES  WHICH  MUST  BE  STORED  IN  MEMORY: 

TBCIGI (J)  GI . ; j = 1,  10  Indicates  which  gear  to 
^ use  for  efficiency  cal- 

culation. Has  value  1, 

2 or  3 ; 1 indicates  low 
gear,  3 indicates  high 
gear,  2 indicates  inter- 
mediate gears. 

TBC1GI(I,ID)  C.  i = 1,10  Coefficients  of  curve 

id  = 1,4  fit  equation. 
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OTHER  PROGRAM  VARIABLES: 


I 

ID 

T9DCMN 

T9DCM 

DBD3T 

DBD3N 

INTERP 


i 


id 


DS, 


AT 


DS 


AN 


DS 


FLAG 


Indicates  use  o£  first, 
second  or  third  gear  ef- 
ficiency model . 

Indicates  which  of  the  four 
sets  of  coefficients  to  use 
in  the  curve  fit  (second 
gear  uses  two  different 
sets) . 

Lowest  torque  for  which 
curve  fit  is  valid. 

Highest  torque  for  which 
curve  fit  is  valid. 

Difference  between  the  cur- 
rent driveshaft  torque  and 
the  driveshaft  torque  at  the 
curve  fit  operating  point. 

Difference  between  the  cur- 
rent driveshaft  speed  and 
the  driveshaft  speed  at  the 
curve  fit  operating  point. 

A flag  which  is  set  to  1 if 
interpolation  is  required. 
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DRlVEjHfirr  TORQUE  (FT-L6) 


FIGURE  24.  TRANSMISSION  EFFICIENCY  - FIRST  GEAR 
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Efficiency 


1 .000 


.BOO 


.600 


.100 


.200 
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DRfVfSHflFT  TORQUe  (fT-LB) 


FIGURE  25.  TRANSMISSION  EFFICIENCY 


SECOND  GEAR 
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Efficiency 


DRIVfSHarT  TORQUE  irT-L6) 


FIGURE  26.  TRANSMISSION  EFFICIENCY  - THIRD  GEAR 
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14 

BRANCH  TO 
GEAR  EFFICIENCT 
CALCULATIONS 


id  — 1.2.3.  w 4 

7q 

FIGURE  27.  TRANSMISSION  GEAR  EFFICIENCY  DIAGRAM 
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FIGURE  28.  TRANSMISSION  GEAR  EFFICIENCY 
BLOCK  DIAGRAM 
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gUS  Sl’^ULATIBN  PRfjGffAM 


1 

a 

— j 

4 

• ****  **,,  

3U39QljTINt  T9  DETE^^MINE  TRANSMISSION  GEAR  EEEIrir^rv 

c * * ♦ 

C---  Ao  A FUNCII9N  '^r  uKIVESHAFT  TQRSUE  AND  SPEED  T^E  GEAR  |n  «WICH 

5 

6 

C dan  kapELLEN  10/73,  REVISED  2/12/74  ' ' 

SU3ReuTIKE  TR-FF(TAf’C,TSf:lGR,T39irr,T:iftl3l,T3lN,T9iC) 

7 

3 

Co  1 uN  /ucA'^EP/  TnCl  G I ( 10/ 4 ) i I 5C  1 S I ( 10  ) 

j;----  THIS  SUER'^uTINE  CALCULATES  ThE  EEFICIENCY  F“R  a r.A  AjT5maTTC 

9 

10 

L- [KA '^SMISolGN  AS  a FUNCTI6N  8F  DRIVESHAFf"’TSR0LF'’  ANO  SPEED  BASED  ON 

C data  supplied  F8R  EACH  gF  ThE  THREE  GEARS,  T«r  oaTA  15  M60ELED 

11 

12 

C ^IIH  A THKel  DI'^ENSISNAL  CURVE  ElT  3ASE0  6n  A t'avlOR  SERIES  EXPANS 

C THE  variables  used  IN  THIS  SUBRSUTINE  ARE  AS  Fftfi'^^S/ 

14 

14 

t----  t jI N=DK I vESHAFT  SPEED  (RPM)  ^ 

C----  T9IC  = DRIVESHAFT  TSRQUE  (F’'-L3) 

lb 

16 

c----  ijyiEFsiRANsMrssi9.Ni  gear  EErTciENCY 

C TDDCMNsMInimuM  DRIVESHAET  TORQUE  FOR  «'HlCH  fFFICIFNCY  DATA  WAS  ivA 

i > 

13 

c-  = U-<1VE  shaft  IOAQ^E  FOR  WHICH  EFFIcIFvCY  DATA  wAS  AVAI 

C----  IntFRPsA  Flag  used  to  determine  if  TH^  EFEIcIFnCv  is  to  EE  INTERPO 

19 

20 

L TBDJIl/E/ll'DRIVESHAf-T  "BRERaTDRs  uSLD  in  Thf  CUhve  fItS  ^ 

C----  T3D3N1/2/.3  = 0RIV£SKAft  S®EED  OPERATORS  USED  IN  thf  CURVE  FITS 

21 

22 

c- — THIS  subroutine  calculates  The  transmission  gear  efficiency  as  a f 

23 

24 

. 'C----  CAR  IS  FUNNING.  IHE  PROGRAM  VARIABLES  ARE  aS  FOi  lOwSV 

C INO'jT  VArIarlES-- 

25 

26 

C*"~”'"buRiIO-»“  THt.  Br. VEL  G^AR  RaTIO 
C T9IC-CRIVESHAFT  TORQUE 

27 

28 

C T9I N-DR 1 VESHAFT  SPEED 

C TAOC-CONVERTOR  OUTPUT  TORQUE 

29 

30 

C T391GR-TRANSMISSI0N  GEAR  RATIO. 

C T33]  EF-TRAnSMISSIOiN  GEAR  EFFICIENCY  FRO'^  PRFVlRi'iS  ITERATION. 

31 

32 

c T391GI-GEAR  IN  -HCIH  CAR  IS  BEING  DRIVEN 

C OUTPUT  variables 

33 

3** 

C T9IC-DRIVESHAFT  TORQUE  AS  CALCULATED  BASED  ON  The  NE'W  EFFICIENCY 

C TBSIEF-NEw  TRANSMISSION  GEAR  EFFICIENCY 

35 

36 

p.,.-  other  program  variables 

C T3C15I ( J)-IN0ICATE3  WHICH  GEAR  TO  USE  FOR  The  FFFTfTCNCV  CAfcULATI 

37 

33 

C TGCIGI ( 1/ ID)-C0EFFICIENT3  OF  THE  CURVE  FIT  EQUATIONS 

C IO-INDICATES  'WHICH  SET  OF  CURVE  FIT  COEFFICIENTS  TO  USE 

39 

40 

c T3DCMN--L6WEST  D.S.  TORQUE  Fqr  „HICh  CURVE  FIT  IS  CONSIDERED  VALID 

C T3DC^-HIGHFST  D.S.  TORQUE  FOR  WHICH  CURVE  FIT  IS  CONSIDERED  VALID, 

41 

4? 

r DaDST-DEVlATION  FROM  CURVE  FIT  D.S.  TORQuE  OPERATING  POINT. 

C D3D3N--DEVI ATION  FROM  CURVE  FIT  D.S,  SPFPD  OPERATING  POINT. 

43 

44 

c intekf-a  Flag  WHICH  IS  Set  to  i if  interpolation  is  required, 

c*  *****■***■*■■*♦*****■»»*,*»**■•*,*»**•*♦*••*»♦*■»*»*•***•********♦**»*.*»*****■• 

45 

46 

C estimate  CuRRFKT  DRIVESHaFT  torque  based  0N  eff,  from  previous  ite 

T9IC»TA0C*T391GR*T3a lEF 

47 

48 

c Use  AGSCLUTE  value  of  DRIVESHAFT  TORQUE  FOR  EFFICIENCY  CALCULATIDN 

T9IC=AB5(T9iC) 

49 

50 

C I/LILRHiNE  which  gear  efficiency  IS  TO  bF  CALCULATED. 

J=T531GI 

51 

52 

I=I3C1GI(J) . ~ ^ ^ 

IF{  1-2)14/ 15/ 16 

^3 

C***********”’*********-****'**,****,**',***,'*********'******','**************** 
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b“ 

55 

• . ■.  .■  ■ ■ . - - . ■■  ij  n I r.  1 

5^" 

57 

C DeiFR'^lNEr IF  THE  ORIVESHaFT  T6RCUE  FALLS  BEL0W  LHWER  B0UNDARY  0F  CUl 

14  T9DCMm=100. 

5S 

59 

rPTT9IC-T5DC^N)22/3l/23 

C IF  S0  CALCULATE  the  EFFICIENCY  AT  THE  a0UNDAf?Y‘, 

60 

61 

22  LBD3T  =TSjC'"N  -5CQ.,  ^ ^ ^ 

C SET  THE  INITERP0LATI0N  FLAG  T0  1 » 

62 

63 

IMTERP=1  ^ ~ 

G9  T0  1C  . 

64 

65 

C-- — OcTERMi.me  If  The  d.s#  torque  lies  beyond  the  uppfr  boundary  0f  curvi 
23  T9DCMx16C0. 

6o 

67 

11-  H9IC-  r9cCi^)3i;3i*24  ^ j 

C IF  SO  calculate  the  efficiency  at  THE  UPPER  BOUNnARY.  1 

69 

24  UBU3t  =Ty0CH-50C» 

GO  TO  25  . 1 

70 

71 

ui  uuujT  =T9ic-5oOt  : ^ ^ ! ; 

25  INTERP=»0  i 

/2 

73 

lU  UdD3N  =T9lN-600t  ^ ' 

10»l 

74 

75 

G13“TF~70  ^ 

— TF’ 
77 

78 

79 

15  CONTINUE 

80 

81 

IP(  T9I.N-2400*  )4  4y  40/ 40 

c — - oetfr-ine  if  the  driveshaft  torouf  falls  below  TftwFR  boundary  of  CU 

82 

83 

40  T9DChn=5C. 

IF (T9IC-T90CNN)4i/34/4? 

84 

85 

41  DBD3T  =T9DCNN-l75t 
ID  = 3 

86 

87 

c set  the  Interpolation  flag  to  i» 

iNTERPxl 

88 

39 

■'■9  11  - 

C OETERv-INE  if  the  d.s.  ''ORQUE  lies  beyond  the  upper  boundary  of  curv 

90 

91 

42  T9DC,Y  = 5C0. 

IF (T9IC-T9DCN) 34/34*43 

92 

93 

So  calculate  the  efficiency  at  the  upper  BOUNnARY. 

43  DBD3T  xT90C'1-l75. 

94 

95 

ID«3 

GO  TO  50 

96 

97 

““C kEpEaT  PROCESS  FOR  DRIVESHAFT  SPEEDS  LESS  THAN  240C  RPM. 

44  T9DCHN=50. 

98 

99 

IF (T9IC-T9DCMN) 46/ 36/47 
46  DBD3T  ’T9DCMN-400. 

Too 

101 

mrg  ■ 

INTERP=1 

T02 

103 

GO  TO  11 
47  T9DCM=900. 

ToT~ 

105 

43  IF(T9IC-T9dcM)36/36*49 
49  D3D3T  =T9DCH-400. 

1 06 

T D»2 
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107 

108 

03  Te  50  — — — i 

36  0333T  = T9IC-400.  • 

109 

110 

I0»2  - 

Ce  T0  11 

111 

112 

34  D5D3T  = T9IC-175.  ■■  

10*3 

1 

50  IrjTEKPsd  

11  0BD3N  = T9INJ-2400. 

115 

116 

03  T0  70 

~TIT 

118 

0***********-****»»*«'****«»**x-<i^0  3^^;;  ^rricirNCY®******************** 

119 

120 

l'6"nM  Ik'JL — 

IF(T9IN-2coC* ) 66/60/ 60 

Idl 

122 

X DETOKrilNE:  IP  PHE  UK  I VESh aPT' TQI7^Ur“'^Air^  BEL0w  Lft-JE«  B0u\OaSY  0f 

60  T90CM\>30. 

123 

12-* 

&T'Tr  1 Ty  I L-  T 90Cn‘^r6’2/  33/63 ^ 

62  D3D3T  =T9DC‘^N-275 . 

125 

126 

«— 0- oc-'T  IhL  llNrrjTPbLAU-'rTPLAG  To  i, 

INTERPxi 

12/ 

128 

00  lo  12 

C determine  if  the  D.S,  TOrGuE  lies  BEYPND  the  UPPFR  30UNOARY  OF  C 

129' 

130 

63  I9JOM»600.  ~~~ 

IF  (T9IC-T9DC‘'')33/33. 65 

131 

132 

C IF  SO  Calculate  the  EFFICIE^CY  at  The  upper  BOUNOARY. 

65  0303T  =T9nCM-275. 

133 

134 

GO  TO  67 

C REPEAT  PROCESS  FOR  DRIVESHAFT  SPEFDS  LFSS  Than  ?nnn  RPM. 

135 

136 

66  T9DCMN=20. 

if  (Tgrc-T90C^:'J)fe2/33/63 

137 

138 

33  D3D3T  =■  T9IC-275. 
67  INTERP»0 

13$ 

120 

12  D3D3N  » T9IN-2000* 
IDx4 

141 

142 

70  continue 

c calculate  the  efficiency  for  the  desired  0.9,  SPFFD  AND  TORDUE. 

irr 

14tt 

T'r,01EF  = TeClGl  ( 1/  1 C j +D303T*  ( TdC  1 G I (2  / 1 D ) +DBD3N*  ( TPC  1 G I (6/  ID) 
l+DBD3N*TBCinl (9/10) ) +D3D3T* ( TdC IG I (4/ID)+DED3\*THriGI(lC/io) 

146 

2+D3D3T*TPClGl ( 7/ ID ) ) ) +03c3n* ( TBCIGI ( 3/ I D ) +D3D3N* ( TRC 1 G 1 (5/ ID) 
3 + 0303N*TBClGl (3/ ID)  ) ) 

147 

143 

C CHECK,  interpolation  FLAG. 

IF( INTERP)35/35/80 

149 

15C 

8D  continue  ! 

C if  .GT.  ZEROInTERPOLATE  between  the  calculated  BOUNDARY  EFFICIE’' 

151 

152 

IF(l.oC-TR01EF)ai/82/82 
81  continue 

153 

154 

TBOIEFsI .00 

82  continue 

155 

156 

r this  interpolation  USES  AN  EXPONENTIAL/  FIRST  r.Ai  CULATE  The  C0N  = 

c USED  IN  The  exponential  based  on  the  torque  and  fff  at  the  curve 

157 

153 

S<=aloG( ( l.-TBeiEF)/,95)/T9DCMN 
c THEN  CALCULATE  THE  INTERPOLATED  EFFICIENCY. 

TB01EF=1 •-.95*EXP(SK*T9IC) 
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!LATI9NJ  opn^RAM 

" I6c;  t 
161  ;■ 

CALdoLATE  TMt  NErt  O.S.  TqRCUE 

35  C9NTI\UE 

BASED  8N  THE  \EWl  V CALCULATED  ERF 

162: 

163: 

If  (TBClEF  .GT.  1,0)  TBOlEf" 

.998 

16^: 

165: 

T9IC=TAeC*T591GR*TB01EF 

RETlJR^J 

166: 

' - ' I n 
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3.3.26  Vehicle  Dyn amics  Subroutine  - VEDYN 


PROGRAM  NAME:  VEDYN 

TYPE  OF  SUBROUTINE:  System  Computation 

DESCRIPTION:  This  subroutine  determines  the  vehicle 

acceleration  based  on  the  difference  be- 
tween the  force  driving  the  vehicle  and 
the  resistive  forces.  It  also  tests  for 
conditions  of  tire  spinning  or  skidding. 

MODELING:  The  road  load  power  requirement  is  the  most 

important  part  of  this  subroutine.  It 
is  defined  as  the  force  that  must  be  pro- 
vided by  the  engine  to  propel  a vehicle  at 
a constant  speed.  This  force  acts  on  the 
wheels  at  the  tireroad  interface  of  the 
drive  sheels.  As  can  be  seen  in  the  block 
diagram  of  Fig.  29,  there  are  two  options 
for  determining  road  load  as  a function  of 
vehicle  speed:  1)  by  use  of  the  road  load 

equation,  and  2)  by  linearly  interpolating 
between  steady  state  driveshaft  torques 
in  speed  increments  of  10  mph.  The  first 
option  allows  the  user  to  specify  and 
vary  frontal  area,  drag  coefficient,  tire 
rolling  friction,  grade  angle, and  mass  in- 
dependently. The  second  option  allows 
the  user  to  store  the  total  road  load  torque 
required  at  the  driveshaft  at  speed  in- 
crements of  10  mph.  The  latter  is  useful 
when  road  load  torque  data  are  obtained 
experimentally  at  the  driveshaft  for  a 
specific  vehicle  and  a curve  fit  is  not 
desired . 

The  braking  force  is  determined  from  a 
brake  constant  and  a brake  setting.  The 
brake  constant  is  set  equal  to  the  vehicle 
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mass  in  the  initialization  program 
(INICON) . The  brake  setting  varies  be- 
tween 0 and  1.  This  means  that  i£  the 
tires  did  not  slip  the  resultant  deceler- 
ation at  full  brake  would  be  slightly  more 
than  1 g,  since  road  load  adds  to  the 
brake  force. 

The  net  tractive  force  available  to  ac- 
celerate the  vehicle  is  determined  by 
computing  the  difference  between  the  force 
applied  to  the  tire-road  interface  by  the 
engine  and  the  resistive  vehicle  forces 
(Eq.  3). 

Dividing  the  net  tractive  force  by  the 
inertial  mass  of  the  vehicle  determines 
the  resultant  acceleration  (Eq.  6). 

However,  the  vehicle  acceleration  is 
limited  by  the  coefficient  of  friction  be- 
tween the  tires  and  road  surface.  The 
magnitude  of  the  acceleration  or  deceler- 
ation is  tested  against  the  maximum  and 
minimum  possible  as  determined  by  the  co- 
efficient of  static  friction.  If  the  max- 
imum or  minimum  value  is  exceeded,  the  ac- 
celeration is  set  to  the  acceleration  at- 
tained with  the  tires  spinning  or  the  de- 
celeration with  the  tires  skidding.  (See 
note  at  end  of  "variables  which  must  be 
stored  in  memory".) 

Negative  velocities  are  prevented  by  com- 
paring the  vehicle  speed  to  AAt  where  At 
is  the  time  step  and  A is  the  acceleration. 
Whenever  the  velocity  would  become  negative 
within  the  next  time  step  if  calculated  in 
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the  normal  manner  the  acceleration  is  set 
equal  to  the  current  velocity  (see  state- 
ments 56  and  59  in  the  listing.)  This 
works  well  in  the  all-digital  version,  but 
in  the  real  time  simulations  where  the 
time  steps  vary  between  iterations,  a 
larger  time  step  is  assumed  than  would 
ever  be  expected  to  occur.  A flow  diagram 
of  the  subroutine  is  given  in  Fig.  30. 

It  is  also  worthy  to  note  that  this  program 
is  presented  in  its  most  flexible  form. 

The  user  can  tailor  it  to  decrease  compu- 
tation time  and  core  space.  If  a user  is 
sure  no  conditions  for  wheelslip  will  be 
encountered,  this  part  of  the  program 
could  be  eliminated  as  well  as  grade  angle 
and  wind  velocity  if  not  needed,  so  that 
one  of  the  options  could  be  omitted.  The 
rotational  inertia  of  the  drive  train  can 
also  be  approximated  by  a constant. 


EQUATIONS: 

1)  Fp 


CnApCV  + V^)  5280^  ,,,,  . r in  M-  ■ 

2gc 

= Total  drag 


2)  R = Fj,  . BgKj 

R = Total  vehicle  resistive  force  including  brakes 
^A  '^RA^^T  ■ ^ 

= Net  acceleration  force  available 

4)  J = ( GR  + Jj^)  • GR 

J - Effective  inertia  at  the  rear  wheels 

5)  = M + J/R^^ 


M 


j = Equivalent  mass  of  the  vehicles 
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6) 


A 


^A-Sc 

Mt 


A = Acceleration  of  vehicle 


7) 

if 

A/gl  -^mIN 

8) 

^ " \axs  ^ 

if 

A/g>  ^mAX 

Awtmc  = maximum  deceleration  (see  note  on 
MINS  . ^ 

next  page) 


A.,avc  = maximum  acceleration 
MAXS 

INPUT  VARIABLES: 

Variable  Name 

Symbol 

Description 

VVOS 

V 

Vehicle  speed  (mph) 

T90C 

^RA 

Rear  axle  output  torque 
(ft-lb) 

WIBBR  or  BS 

®s 

Brake  setting 

TBOIGR 

GRtr 

Transmission  gear  ratio 

T9I1GR 

Equivalent  rear  axle 
ratio 

TBOIGI 

GI 

Gear  index 

AVIO 

4> 

Wind  speed  (mph) 

OUTPUT  VARIABLES 

1 

VVOA 

A 

Vehicle  acceleration 

VVDF 

Road  load  force 

VARIABLES  WHICH 

MUST  BE  STORED  IN  MEMORY: 

VVIM 

M 

Vehicle  mass  (lb) 

VVILFT 

Ar 

2 

Frontal  area  (ft  ) 

WIICD 

Cd 

Drag  coefficient 

VVIIRF 

p 

Coefficient  of  rolling 
friction 

TVIJRA 

"^RA 

Rear  axle  gear  inertia 
(Ibm-ft  ) 

TVIJCT 

JCT 

Torque  converter  turbine 
inertia  (Ibm-ft^) 

TVIJTR 

Jtr 

Transmission  gear  inertia 
(3rd  gear) 

TVICRL 

^i 

Table  of  road  load 

torques 
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NOTE 


LOADEQ 

FLAG 

Used  to  determine  the 
method  of  calculating 
road  load 

VVIFUM 

^M 

Coefficient  of  static 
tire  friction  (g's) 

WIFUS 

f 

s 

Coefficient  of  slipping 
tire  friction  (g's) 

VVIMAX 

^MAX 

Maximum  vehicle  ac- 
celeration (g's) 

VVIAS 

^MAXS 

Maximum  vehicle  ac- 
celeration with  wheel 
spin  (g's) 

VVI2BR 

Kb 

Brake  constant 

This  program  assumes  all 

four  wheels  to  brake. 

Therefore  the  coefficient 

of  static  and  slipping 

tire  friction  are  also  the  maximum  and 

skidding 

*^^MINS 

) decelerations  respectively.  The 

maximum 

*^^MAX^ 

and  slipping  acceleration 

are  calculated 

in  the  initialization  program 

(INICON) 

taking 

into  account  weight  transfer  and 

assuming 

the  power  wheels 

to  be  at  the  rear  of 

the  vehicle. 

PROGRAM 

VARIABLES: 

Variable 

Name 

Symbol 

Description 

SINAVO 

SIN(4>) 

Sine  approximation  for 
grade  angle 

TVIMJ 

J 

Rotary  inertia  of  drive 
train  as  seen  at  the 
rear  wheels 

VVDFBR 

R 

Total  vehicle  resistive 
force  including  brakes 
(lb) 

WDFN 

Fa 

Net  force  available  at 
the  pavement  to  acceler 
ate  the  vehicle  (lb) 

WDM  I 

Mi 

Inertial  mass  of  ve- 
hicle (g's) 

WHLSLP 

Used  in  real  time  simu- 

lation  to  control  the 
noise  generator  for  in- 
dicating tire  slipping 
conditions  to  the  driver. 
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FIGURE  29.  VEHICLE  DYNAMICS  BLOCK  DIAGRAM 
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FIGURE  30.  VEHICLE  DYNAMICS  FLOW  DIAGRAM 
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tJS  Sl^^-LATieN  PR°GPAM 


‘JO 

1 

2 

3 4 . • 1 >-»  • - W"  *~I*  . uair 

* ****  VEDYN  *•** 

SUaseuTINE  VEOYfvC  TBeiGI/VV0S/BS/T99CjTB8lGK^TqTTr!R,VVSA 

3 

4 

C >VV0r/T91 1/ VVDFoWj  VVDr'I#DELTATiVV8A0/ 
C TVIMJ) 

5 

6 

C SU3R8UTINE  T8  SIMULATE  VEHICLE  ACCELERATION  AND  BRAKING  DYNAMICS 

C dan  kafRLLEN  10/73 

7 

8 

C----  THIS  SUBROUTINE  DETERMINES  THE  VEHICLE  ACCELERATION  BASED  8N  THE 

9 

1C 

r DIEFFpeNCE  BET'^EEN  THE  EeRCE  DRIVING  THE  VEhCLE  anD  THE  RESISTIyE 

D E8RCE5.  IT  ALSO  TESTS  FOR  C6NDITI8NS  8E  TIRE  SPINNING  SR  S/IDOING. 

11 

1? 

C INPUT  VARIABLES 

C VVes-  VEHICLE  SPEED  (MPH). 

13 

14 

c- r3bf-HEAR  AXlE  output  TSRQUE  (FT-LB)# 

C B3-3RA'<E  SETTING  (0  T8  1) 

T5" 

16 

L----  TBsiur-TKANSMISSIGN  gear  RATie. 
C----  T9I IGR-eOUI VALENT  REAR  AXLE  RATI8. 

U 

18 

C-'---“T381GI -GEAR  I N"  Lh I cH"CAR  "I S"  BRESAT I F»iGi 
C AvIS-^lND  SPEED  (MPH) 

ly 

20 

L----  okAJc.  AwuLE  (HAD) 

C- OUTPUT  variables 

21 

22 

C VVbA-VLHiCLE  ACCELERATIQN  (MPH/SEC) 

c vvde-vehicle  road  load  Force  at  tire  R8ao  Interface  (LB). 

2j 

24 

L .sH(_Su^^-  USED  IN  K.  r.  SIMULATION  JO  CONTROL  TIRE  5LIP  N9ISE  GENERAT 

c- — prsgra^^  constants i 

25 

26 

C WI^-vEHIClE  mass  (LB). 

r WILFR-FROnTAL  area  (SQ.  ft*). 

27 

25 

C WliCD-DRAG  COEFFICIENT* 

C VVI IRE-COEFFICIENT  OF  ROLLING  FRICTIBN. 

29 
3 C 

C VVIFuM-COEFFICIENT  8F  STATIC  TIRE  FRICTI6N  (G'S). 

VVIEus-COrFFICIENT  OF  S'  iPPlNG  TIRE  FRICTI8\  ir,»qS. 

31 

32 

C VVIMAX-MAX  VEHICLE  ACCEL  (G»S).  CALCULATED  IN  UNlCBNi. 

C VVIas-MAX  vehicle  ACCEL  wiTH  WHEEL  SPIN(Q'Sj.  CArc.  IN  MNICONt'. 

33 

34 

C VVIPBR-bRAKE  constant.  (lB). 

r TVNTVUCT 

35 

36 

C TVlJCTiTVIjTR#TVljRA>TVljTw-.P0LAR  M0MENT  8F  INErTIA  0F  TOrCUE 

C----  converter  TURBINE/  TRANSMISSION/  REAR  AXLE/  AND  RFAR  aHEFLS 

37 

35 

C RESPECT  IVElY(L3m-FT**2) . . 

C- L8ADE0-A  USED  IN  A LOGICAL  MANNER  T8  TP  DETERMINE  WHETHER 

39 

4C 

C L^AUEG-  used  to  DETER-^INE  if  R0AD  L6AD  EQUATION  IS  0F  TABLE  IS  USED, 

c other  program  variables 

41 

4? 

“C SINavo-SIN'E  approximation  for  grade  angle* 

c TVIMj-TOTAl  rotary  inertia  0F  DRIVETRAIN  reflected  T8  REAR  WHEELS. 

43 

4<t 

~t — - vvD-bR.  Total  resistive  force  acting  on  vehicle  including  brakes, 
c VVOFn-nfT  force  available  to  accelerate  vehicle'. 

4b 

46 

“c VVDMI-TOTAl  inertial  mass  8F  VEHICLE  (G»S). 

47 

4e 

common  /air/  AVIB/AVIR/ AVIO/AVIS/AVIM 
COMM0N  TVI  JCT/TVI  JTR/TVI  JRA  /TVIJT'W 

45 

50 

CO'^MOn  /PRnT/  IOUT/ IPRNT,L&ADEQiMAXLIN 

common  /mass/  VVILFR/VVllCD/VVIlRF/VVlMi/VVi2BR/VVlMjVViM0R/ 

51 

52 

C VVISwB/VVISH/ VVIAMx/VViAS 

common  /RDLD/  TVICRL(16) 

53 

Common  /T ire/  widrr/ vvifum/vvifus/vvUuF 

159 


jS  3I*^'JLATIS\’  PRnGRAM  HATP 

55 

« 

C----  APPR0XIMATE  G^ADE  ANGLE  T9  AV8I0  USE  CF  SINE  FlJNETieN* 

56 

57 

SlNAVe  = AVl9*(  1.-AVI0.AVI0/6O 
Wi-ILSLP*C» 

'5S 

59 

c IF  CAR  IS  n9T  in  gear  set  ACCELERATI0N  TQ  ZER9  AND  RETURN. 

If^  (T591GI-.5)  lO/lOiAO 

60 

61 

TO"  VVSa.c.  ^ ^ 

return 

'62 

63 

5"o'  c2ntimue  ; ; 

C IE  LBADECI  is  1/  USE  RBA3  LSAQ  EQUATieN.  IF  ZER9  USE  O.S.  T9RGUE  TAbL 

6A 

65 

I E ( LQ  ADEQ  ) 'rS/ ^*5/ A6 
a5  I=VV0c/io.+1. 

■5T' 

67 

VV0F=(TvICRL(  I ) + (TvlCRL( I + l )-TVlCRL( 1 ) )*(VV0S/ 10.-1 ) ) *T91 1GR*T91 1/ 
IWICRR 

~ST 

69 

"76 

71 

lj0'  TS  47 
A6  C9NTI^IUE 

cvv  iiRh-  =voo5'+vvTrPF*\/ve5'*~2~TT'ocoocoi  ; 

VV0E=,G33i294*VVIlCC*VVlLER*AviM*(  ( VV5S  + AV  I S ) * *r’j  + 

7d 

73 

C,vvi;-*(  •uUb  + 3»ny*(VV0S-*22./lb«  )**2»  ) 

C -*-SlNAVa*vVlN 

/*» 

75 

47  Cun ! 1 NUb 

c add  resistive  F0RCE  TO  BRAkInG  FORCE  TO  OBTMN  TOTAL  RESISTIVE  FORCE: 

76 

77 

VV0FaR=VVCF+VVIcBR*3S 

C 05TAIN  net  EBRCE  available  T0  ACCPLERATE  THf  VffiTcLF. 

78 

79 

' VVD'^i\  = T9ac/VVIUPR”VVDE3R 

C calculate  T9  total  R0TARy  InfrtIA  6F  THE  DRiOET^AiN  AS  SFFN  AT  THF 

80 

81 

TVIkj= (TVI JCT+TVI JTR )»( { TBQ 1GR*T9 I IGR ) **2 ) +T V I JRA, (T9I 1GR**2) 
2+TVl JTW 

82 

83 

C REAR  wheels. 

c detpr^^ine  the  Inertial  “^ass  of  thf  vehicle. 

SH 

85 

VVD'M  = (VVIh  ♦{Tvinj/(yvlORR**2)  ) )/32.1739 
c CETERvInE  vehicle  ACCELERATIQN. 

86 

87 

VV0A=VVOEN  /vvdhi 

88 

89 

c:----  DETERMINE  IF  THERE  ARE  any  CONSTRAINTS  0N  ThE  CAl  CULaTED  ACCELERATIf: 

C **•*»**»■»•*■*****■»*♦■•■»*»•***•»*»******♦**♦***♦**■*♦***•**, ,****«»*if*«******** 

90 

91 

IF(VVOA)  5l/50>52 

C----  IF  ACCEL  IS  NEGATIVE  CHECK  IE  TIRES  ARE  SKIdOINg'. 

92 

93 

51  IF  ( VV0A/32. 1739  + WIFUM)  55/56/56 
55  CeNTiNUE 

9A 

95 

''■HLSLP  = -1. 

C IP  tires  are  skidding  SpT  DECEL  T0  that  eCCuRlNG  UNDER  SLIDING  C0NDT^ 

96 

97 

VV0A=-VVIFuS*32. 1739 
56  continue 

98 

99 

C ENS'URE  VELOCITY  WILL  NOT  BECOME  NEGATIVE  DURING  NFXT  TINE  STEP.  I 

deltat=.oi  ! 

' CO 
101 

IF ( VVeS  + VVOA  *DE LTAT* .681818  >59/59/ 5C  i 

59  VVQAs_VVOS*l .46667/DELTAT  i 

102 

103 
‘.O'* 
105 

KL  T UR  N j 

C FOR  POSITIVE  ACCEL  DETERhInE  IF  WHEELS  ARE  SPINNING. 

52  IF  (VV0A-VVIAHX*32.1739)  50/50/62  I 

62  CBNTINUE  i 

1 06 

- /<hlslp  = -1  • ^ ^ ' 
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BUS  Sl>^UL*TrON  P??q3PAM 


-ToTT 

ica: 

t 

It-  wheels  a-^e  spinning  set 

VVOA»VVI As»32. 1733 

ACCEL 

TO  MAX  POSSIBLE  UNDER  SLIP. 

105; 

no; 

50 

CQ\TIs.u^ 

AiiW9A=A0S  (VV0A) 

in; 

112; 

c 

IF(A3vVBA  ,lE*  •01)  VV0A=tO 
CHA\GE  vehicle  ACCLERATI0N 

from 

FT/SEC/SEC  T9  kPh/SEC. 

li3; 

m; 

VVOAs:VV0A*.AS18l8 

IE  (VV0A  ,lE»  0 tAiNiD.  VV0S 

• iIt. 

.1)  VV0SsVV0A*VVRa6»O 

m; 

116; 

KtTUR\ 

END 
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3.3.27  Subroutine  to  Interpolate  Torque  Ratio  and  Inverse 
Size  Factor  - VELTERP 

SUBROUTINE  NAME:  VELTERP 

DESCRIPTION:  SEE  TQCONV 
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3.4  INPUT  FORMATS 


Data  is  entered  into  the  system  by  the  subroutines  INICON, 
MAPER  and  RDEPA.  AGNCON  can  be  used  to  revise  data  and  vary 
parameters  when  doing  a series  o£  runs.  The  following  is  a 
description  of  the  input  form. 


VARIABLE  INPUT  FORMAT  MEANING 


COMM 

13A6/13A6 

VVIMI 

8E10.3 

WI2BR 

WIM 

VVIMDR 

Comment  for  heading 

Inertial  mass  of  bus 
Brake  constant 
Vehicle  mass 
Mass  on  drive  wheels 


RIE  8E10.3 

TMAX 


Engine  inertia 
Maximum  engine  torque 


SCALEF  8E10.3 

TIDLE 

PIDLMIN 

PIDLMAX 


Engine  size  scale  factor 
Throttle  idle  setting 
Minimum  engine  speed 
Maximum  engine  speed 


ACLOAD  8E10.3 


Accessory  load  torque 


VMIN(l)  8E10.3 

PMAX(l) 

VINT(l) 


Maximum  value  for  joint  prob. 
Minimum  value  for  joint  prob.  den 
Interval  size  for  joint  prob.  den 


VMIN(2)  8E10.3 

PMAX ( 2 ) 

CINT(2) 


(same  as  above  except  for  second 
variable) 


NGEAR  15 


Number  of  transmission  gears 


TBCIGI  Ell. 5 

ITCIGI  II 

TBCIGR  8E10.3 


Polynomial  coefficients  for 
calculating  gear  efficiencies 
Index  for  assigning  gear  effi- 
ciency calculations 
Gear  ratios  for  transmission 


BGRTIO  F10.6 


Bevel  gear  ratio 


GRl 

TVIJGT 

TVIJTR 

TBDTMS 

TBDTH 


8E10. 3 


Gear  ratio  for  first  gear 
Polar  moment  of  converter 
Polar  moment  of  transmission 
Length  of  shift 
Time  between  shifts 
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VARIABLE 

INPUT  FORMAT 

MEANING 

T8I1GR 

TVIJRA 

8E10.3 

Rear  axle  ratio 

Polar  moment  of  rear  axle 

VVIDRR 

VVIFUM 

VVIFUS 

VVIICF 

TVIJTW 

8E10.3 

Tire  rolling  radius 

Goefficient  of  maximum  tire  friction 
Sliding  coefficient  of  tire  friction 
Tire  coulomb  friction  coefficient 
Polar  moment  of  tires  and  wheels 

T8INV 

F6. 1 

Corrected  driveshaft  speed 

VVILFR 

VVIICD 

VVIIRF 

8E10 . 3 

Frontal  area 

Drag  coefficient 

Rolling  friction  coefficient 

VVISWB 

WISH 

FUELWT 

8E10.3 

Wheel  base 

Height  of  vehicle  center  of  gravity 
Fuel  weight 

AVIB 

AVIR 

GAIN 

DELMIN 

8E10 . 3 

Air  pressure 

Air  temperature 

Gain  for  vedyn 

Autodr  minimum  lead  time 

lOUT 

IPRNT 

LOADEQ 

KIO 

DT's  between  printouts 
Print  control 

Road  load  calculator  switch 

TVIGRL 

F5.1 

Roadload 

DT 

F10.6 

Time  increment 

AVIO 

AVIS 

8E10 . 3 

Grade  angle 
Wind  speed 

GRMAX(I) 

4F10 . 5 

Maximum  driveshaft  speed  for  Gear  I 

GRMAXCR(I) 

8F10. 5 

Maximum  driveshaft  speed  while 
cruising 

GRMIN(I) 

FIO  . 5 

Minimum  driveshaft  speed  for  Gear  I 

AWAY 

2F10.5,F10.8 

Converter  Gear  Ratio  and  size 
factor 

SRNEW 

TRNEW 

SROLD 

TROLD 

TIMLOGK 

8F10. 5 

Speed  ratio  during  lockup 
Torque  ratio  during  lockup 
Speed  ratio  when  unlocking 
Speed  ratio  when  unlocking 
Length  of  lockup 
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VARIABLE 

INPUT  FORMAT 

MEANING 

ACCLOCK 

8F10. 5 

Lockup  velocity  at  wide  open 
throttle 

DECLOCK 

Unlock  velocity 

ACCRUIS 

8F10. 5 

Lockup  velocity  for  cruising  mode 

MAPER 

F(50,9) 

5x,9F7. 2 

Array  to  hold  torque  and  fuel  maps 

MAPI (1,1) 

917 

First  line  of  MAPI 

MAP3(1, I) 

917 

First  line  of  MAP3 

RDEPA 

ACEL 

3F8.3,I8,F8.3 

Acceleration  rate 

VCRUIS 

Cruise  speed 

DECFL 

Deceleration  rate 

NSTOP 

Number  ^ f s tops 

RTLNGT 

Route  length 

TDWELL 

Time  spent  at  dwell 

SIMULA 

ISTOP 

12 

End  of  computer  run  flag 
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3.5  SAMPLE  DATA  DECK 


This  section  reproduces  a sample  data  deck. 


TA  , ■ 

MDHPc »»ptic  c AT  ?s  mph 

TOPOUF  Cr'MVc  RT'='P  TC400  24^50  LP.  TRAl'tSMI  SSION  V730 

1 

it'40,0  2*?. 8 i.n  n.p3n  900. n 2?on. 

. ?4.A  28.3  ?R. •^4,4  4?. SI  .8 

, -a  A4  . 44  , ^ 

~7g  P . gP. 

SOP , ?4PO , 1 RP . • - 

2 - 

,07P'1P<^  + OP  ,7147TC--nS  , 1 9147P-n4-.fSl4C)7P-P7-.3Sl  70P-07 

.7AQ41P-PP  ,4-a07PP-1P  .70TAOF-in  .Tl4A1F-in  .!Q7QPF-Tn ■ 

.o-JiS-'Oc  + np-,  1 1 784P-P4-.  7?,'^4-»r_n4-.  7P4]4F_P6,  .787798-09 

.4A7<^1--0P  , 1 g,/:P7:r_nQ  , ? •)  c,  oo  p _ -j  1 . T7  1 c;  c _ T •;  - , q -a  n 4 1 8 - I O 

” .a6'J70F.  + On  .1  84778-03-.  ] ] i gqp_ng,-.  1 2 04  ’ F -n  S - , 5 OonOf-O  8 

.lopPOF-ns  .236678-08  .8oonQF-l7  . I 3 525 8-oQ- . 6 58 77F-Q 9 ■' 

.ooRpoF+OO  .1410SF-O4  .27Q77E-0S-. 813978-06-. 1536SF-08 

.4^51 6E-07  .34  1 82F-09-. 62602F-1 2-.  310668-1 n-.4693S8-Qq . ’ 

1 2 7 ' ■ 

0 .0667  1.40  ■ 1 . OOP - • 

.87'^ 

7.0667 2 «60 3.60  10.0 16.0 

g , 1 43  4. 6 

T .708 ,P  .66 jOJ 40.62  . 

. 420,  340.  1260.  1680,  210O.  2520.  2980,  3400.  3820.  4240. 

7g  . j_3 .008  - 

236.6  4P.  7.21 

1 4 . -i  74  7 60  . 0.03 , 1 ^ 

20-1  1 • 


64.3 


.06 


020.  1680.  9990. 

goo. 16  80. OOOO  . 

OOOO.  660.  1620. 

.oOOQO  2. 4 6006. 000231207 

,100^0  2 . 3 308 2 , ooo 2 7PR6 6 

.OOQOO  2 . 1 6000 , OQO 2 2 1 1 70 

.30000  ] ,08606. ooopo6R64 

,40000  1.80236.0001  04834 

,46000  1 ,70667  .Ooo  1 Roi  4,6 

.60000  1 .61217. 0QOT  8363P' 

,65000  1.62337,000178040 

.60000  1 ,4401  1.0001  71737 

.70000  1 , 2771  6 , OO'' 1 628  1 7 

.26000  1 ,10261.0001  4 8809 

.poooo  1 . 10623, ooo 1 8 popp 

.88000  1,06307.000120700 

, 8620O  ,00766 , ooo 1 16067 

,01  230 ,9081  1 ,000081  106 

,02460  .00820.000071216 

,02480 ,00820 , 000071036 

1 ,OOp  0.0 

1.26 .008 -.00  0,046 

1.60  .008  -.00^130 
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1.0 

• 

06 

.6 

1 . 

1 

.5 

?p. 

0 P 

. A 

A 

poo  , 

* 

pnr 

-144,4 

0.0 

] 44.4 

261.9 

369,6 

476  ,p 

529.4 

682.8 

728  . 

1 1 . 

n . 

11. 

17.17 

24.2 

28.27 

30,64 

40,66 

62.8 

son 

O.O 

.s 

l.s 

2,5 

3,5 

4.5 

5.5 

11.2 

8 1 . 

son 

lOOO, 

7000 

-107. 

0.0 

107. 

215. 

3 09.P 

494.4 

408.9 

593.5 

232. 

1 non 

16. 

16. 

16. 

21  ,P 

27.6 

11.6 

40.14 

47,58 

68.8 

1 ooo 

n , n 

1.0 

2.0 

p,o 

5.0 

6.9 

31.0 

ifl. 

81  . 

1 no'' 

1 20''. 

1 ?oo 

-IPO. 

0.0 

IPO. 

260,0 

364,6 

440,06 

542.7 

61-^, 1 

2 1 1 ..1 

T?0O 

19. 

10. 

19. 

25.64 

32.64 

10,6 

47. 

55.4 

66,33 

1200 
1 ?on 

0,0 

5,7 

1 1 .4 

1.7.  R 7 

24.35  . 

10,8 

37,29 

43.77 

.81. 

1400, 

1 400 

-1  10. 

0,0 

130. 

25fl, 

352.6 

4 4 6,4 

544 . 0 

637.7, 

711.5 

1 400 

22. 

22. 

22. 

10.291 

17. 9P 

44 ,06 

6 4,81 

6 P.7 

74.88 

4on 

n ^ n 

6,6 

11.2 

29.74 

2»  .28 

15. 8 

43.16 

60.91 

8 1 . 

1 400 

1 Aoo . • 

1 400 

-170. 

0,0 

1 70,7 

261.9 

161.2 

441.8 

515,0 

626.2 

717.2 

1 Aoo 

2A  . 

26. 

26, 

P9 , 4 

46 ,4p 

52.92 

61 . 29 

71 .14 

P P , 16 

1 Ann 

0.0 

7.P 

1 S.6 

21.0 

12,25 

40,60 

48.0 

6 7,24 

81  . 

T Aon 

1 ooo  . 

T Pnn 

-1  . 

0.0 

1 op.  4 

2R1  . 

164.7 

44  7.9 

511.0 

612.7 

697.1 

'POO 

14  . 

14, 

14. 

42.42 

SO. 63 

6 9,4 

68.8 

^8.75“ 

90. S3 

'Ron 

0,0 

I''. 2 

20.4 

29.0 

17.5 

46,1 

54,6 

59.5 

8 1 . 

] POO 

20OO, 

5000 

-217. 

0,0 

217.9 

291.6 

160.5 

446,1 

520,7 

596.1 

6 22.2 

^nnn 

42  . 

42. 

42. 

40.9 

SP  , o 

A , A 

-76.0 

86  ,p 

r»  ^ A 

onn  n 

O.o 

12,45 

24,9 

11.54 

42.2 

60,86 

59,6 

68,16 

3 1 . 

5000 

22''^. 

5500 

-2PO. 

n.  n 

21A, 

P04. 6 

111 , 1 

44  2,6 

51  2, P 

682,6 

6 1 . 7 

2?oo 

SO  . 

so. 

SO. 

57.4  . 

65,4 

71.8 

81. 

92.55 

104.4 

5200 

0,0 

is.s 

19.9 

19.24 

4 7.6 

55.96 

64,20 

72.66 

8 1 . 

5200 

poo  5?oo 

7 

0 

lOO 

50 

1 / 

100 

0 

poo  2?oo 

7 

-SO 

06  0 

19 

1 

1 

P 

2.*^ 

7^, 

2. 

S 

S 

1 .9 

'6. 

1 
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APPENDIX  A 
Plot  Program 

TYPE  OF  SUBROUTINE:  Output 

DESCRIPTION:  This  program  takes  the  output  from 

OUTVAR  and  plots  it  on  a Calcomp 
plotter . 

MODELING:  This  program  inputs  from  a tape  with  a 

maximum  of  twenty-five  channels  each  of 
which  holds  values  of  a variable  outputed 
by  OUTVAR.  Channel  1 holds  the  x axis 
values  which  is  usually  time.  Six  plots 
can  be  done  using  the  same  x axis.  The 
program  will  then  ask  if  more  plots  are 
wanted  so  up  to  24  plots  can  be  made 
from  the  same  tape.  Following  is  a com- 
plete listing  of  the  plot  program  and  a 
sample  plot. 

The  Calcomp  subroutines  used  are  de- 
scribed in  (3) . 


A-1 


FIGURE  A-1  FLOW  DIAGRAM  FOR  PLOT  PROGRAM 


A-2 


FIGURE  A-2.  GRAPHIC  DISPLAY  OF  TYPICAL  OUTPUT  DATA 


LS/Ba 

1 : 

2:  DIME,\9  IrN  3(  2B  ) , A^JRAyI  ( 1500)  ^ ARRA  y2  ( ISOO  ) ^ ARRAYj  ( 15CC  ) i X(  1500 

^ 31  K'AL  r-AX(3)^MIN(3)  ^ ^ 

a:  real  v'^ax 

Bl  Or'.tMSU’N  piPUT  ( 10)/KINPuT(5)  ^ 

6:  EOUIVALF.NCE  ( input' 1 )>RT^PUT(  1 ) ) 

"~Tl  ^ ' LINLnsI^im  NC(3<2),,\Ch(6)  ^ 

8:  EQUIVAL^MCE  ( ''Cp  U ) ' NO  (1  i 1)  ) 

. 5';  u 1 ,"1  t-US  i b IN  C 1<  6 ) / c 2 ( i ) > c 3 ( 6 J / c A ( 6 J 

1 C t * ♦ 

1 1 : iCci  Format (1 01)  ; 

1?:.  1002  fsr^ak  iO(  \,/) ) 

~TH  lOOU  h br^b-^;,Y  ( 10A8  ) ^ I 

1A:  !C30  F6RNaT('  CHANNEL •> I A>2X/  'MAXinuM  IS* jF10.3/?Xj  iMiNIHUN  IS'jFlO.3) 

“T31 lv3r  "FbR'^I^'n^TO'm ' — 

16;  1C32  FeRNAK*  max  ='/F1C-3) 

~m  I'OAo  i- jkmat ( ''"'Enter  y 'axis  l‘.le:l5  fo^r  each"  cmanneiL”whfm  ash^ed.^/^ 

18:  •'  Twa  (?)  lines  are  f.eouireo  each  up  tb  i6  charatters * i/^ 

19;  •'  hRL'G.-^AM  wILL  echo  Y£'JR""ENrRV.  IF  YOU  DUNf  LUt  itfl/t 

20;  *»  PRESS  SS2  AN'O- clear  pause  to  reenter  both  LINES') 

81;  1 C ''  1 I"  c R A ( ' E N T E R 5 L I ' ■ L S ^ t:  R CnA.\-EL*^IA) 

22;  1C42  FORMaK*  number  OF  POINTS  IS  *W5) 

23:  # ^ 

2A;  CALL  PLeTS(0/0/ 16) 

2b;  C **"''‘VE  ORT'Tn'uP  C.6  I'nChES  TO  STaRT 

26J  call  PL0T(o*0/u.6i-3)  

2 7;  1 L “ N I i i\  y E 

2a;  NPASs  = 1 

2 T ; • 

3C;  c **  channel  selection 

“oTi  L ** 

3r  : 50  DO  5i  < = 1, lO 

JCI  31  I '4pu  I ( rs’)~=“U 

3A;  output!  102)  ' ENTER  CHANNELS  jO  EE  PLOTTED  --  EX.  9.2M>7/3/5* 

3ol  REAC’(  lUl.  iG'Ji  ) TTTPin 

36:  c **  determine  number  of  channels 
—J-/1  ^ NChAns  = 0 

38:  DO  55  <=1/10 

~~jn ^ — rrrr.Py  1 1 < y.'H'rc )‘"  go  T5""5g 

4C;  nchans  = nchans  -*■  i 

A 1 ; 55  L b N T 1 No E 

A2;  60  IF( NCHAmS.QT.6 ) 0UTPUT(1c2)*  TO  maNY  CHANNELS  --  FIRST  6 USED* 

OUTPUT  ( 10"2T“7'L'C"'HAVE  sr  lL'CTED' ' I HL"'T-  uLL'i  wlNC  ChannELS'* 

AA;  OUTPUTdO?)  I TO  change  --  PRESS  SS2* 

*♦  b : /»-<l  IE(  10  A / I C'OE)  ( input  (k)/<=l/b) 

A5;  pause  C2 

~T71  It-  (UEnSE  switch  2)  5C/7T/ 

48:  70  00  72  J=l/2 

A3 : u c 7 1 . ; = 1 / 3 

30:  NC(I/J)  s I\P'JT(I+3.(J-1)) 

•5  i : / X u;r, ! I ‘ EE  : ^ 

52;  72  continue 
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53 

G'f 

C **  5NTt!°  AXIS  labels 
Ti:<  lo’l/ 1040  ) 

55 

5f 

20  DP  fi4  Ksl/S 
ca  ?r  j = i,  10 

57 
5 B 

2 1 I \P  o'  T ( J ) , = ^ H 
8H  WPITE  ( iol/l041  ) NC'H(K) 

55^ 

6Z 

■ f^EA0(  lCiM0':3)  (R  I\P'uT( 

■ 3£AD(1C1#  1003J.  j)  / J = 3i4)  ■ 

61 

6^ 

■ ■ • 1‘UTPoTUCE)  ' Y---UK  ti\my  .-.AS'' 

/.WITTf  jr2/ 1003)  (■■'■' TVip^_iT  J*  li  2) 

63 

64 

■ .'.'<1  .IE(  lOP  / 1003)  (;ii;>PuT  ( J ) / v>  = 3i  4 ) 

PAUSE  CP.'  • 

65 
£ £ 

IP{SEm3E  .SWITC>-<  82^33  ~ ”” 

53  Cl  (X ) = PiN^’ijr  ( 1 ) . . ■ 

6/ 

6« 

ckr<  ) =■  P r^ipu  1(2)  ■ ■ 

C3(S  ) : = RI\PUT ( 3 ) ■ 

65( 

70 

C,4(K)=RI[^Jp^J](^,) 

34  CPMTinUE' 

71 

7? 

c *♦ 

C **  PLOT  section  --  PLPTS 'channels  IN  REVERSE  ORDER 

73 

74 

C 4*  . 

DO  7c^  NPASS  =1/2 

7b 

76 

C <*  oLI  uP  NEa  a-^I3lN  IF  SECP  .0  -AS'S 

IE(NPaSS*E3.2)  call  plot ( -1 *0/ 1 f8/ «3) 

7> 

7^ 

pnsxss  = "2  ^ 

( NpaSS»EC.2  ) r^PASS  s 1 

/■i? 

7 

O w 

100  'vif  = c 
C *»■  CLEAR  arrays 

fc? 

o-j  lC‘j.  K = li  150C 
ARRAyKR)  =0.0 

*5 

S4 

A-»-\Ay2(i<)  s 0»0 

aprayscx-)  = 0.0 

lo 
! 5 

X ( <)  = 0.0 

1C5  CSNTI^'uE 

tV 

3 

L **  -.c-Aj  TAh’E.  A.>ji/  LUmD  AK-^AYS 

rewind  100  <* 

* :> 

crn:rnr5T="srrrrJ0Ti  ^ 

no  read(  100)  b 

^ i 

9? 

» r = N I + 1 
X(nT)  . B(1) 

94 

A V 1'  (-NT  ) = J ( 'C  m r‘r  ) ) 

array2(nT)  = 3(' c(2*n'’a;-;s)')  • 

56 

/•  ^-vAY'i  ( N 1 ) = f-i  ( > C ( 3/ ' pApS  ) J 
IE(NT.LT. 1408 ) PQ  TO  110 

57 

9R 

PUTPUTCIOE)  ' "ORE  ThaAj  1455  PeiwT'S“  TNl  FILL' 
GP  T8  160 

1 ^ r« 

C *»  r.lr  oLcribN  ^ 

150  PUTPUT(102)'  EOE  ENCPUMEREO  ' 

* 1 i 
i:? 

160  i ( L ( 1 C c / 1 C 4 P ) NT 

IE(NPASS.EQ.2)  05  T9  20C 

1 04 

C •»*  t.NiL.N  X AXIS  LEN'--TH 

■ PUTPUT(102)  ' ENTER  X AXIS  LENGTH  IN  INCHES  --  pIo.3'' 

1C6 

i'tA0(lCi/10.il)AXL.LN 

5UTPUT(102)  t ENTER  X AnS  LABEL  --  1A8» 

A-5 
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107 

1C*’ 

REAOnCl/1003)  DX  . 

C *•  CH;TERf1!\c.  ^•AX  ANi)  MIN 

icy 
1 10 

2Cu0'b2i0<-l>3 

MAX(<)  = -99909^.0  , ■ 

111 

112 

MIN(k)  = 5991^99.0  ^ ^ ^ 

210  continue 

113 
1 1'* 

Df'  220  >^  = 1/NT 

IF(  ARPAVI  (K  ) .NT  .MAX  ( 1 ) ) MAy(  1 ) sARPAVl  (<)' 

lib 

116 

IF  ( AAt.  AT  1 ( <)  ,LT  .MI\(  1 ) ) Klrj(  1 )=AN^AY1(K)  ' ^ 

IF(A.9PAyS(k)  .NT.MAX(2)  ) M A X ( 2 ) = ARR  A Y2  ( <) 

iw 

118 

II-  (AA«Ay2(K).LT.Ii1n(2)  ) Mr-i(2)=AKRAY2(K) 
IF(  ARRAy3(<)  .OT.MAXO)  ) N‘Ax(3)=ARPAY3{K) 

120 

IF(  Ak:;Ay3(x)  •LT.:iI,\(3)  ) M 1 M ( 3 ) = ARp  AY3  U ) 
.220  continue; 

121 

122 

CUTMut  ( 102 ) ' ENTER  OESIRLO  MAXIM'J“5  KBR  Y AXISI,  ' ^ 

OUTPUT ( 1 02) ' USE  PCS.  NUMDEK  FOP  PLOT  FROM  0 Tn  MAX' 

12  3 

124 

J J I r'o  r 1 102  ) ' CoI“T,'E;7r.  ' KljM.rjErr  f-C-'l'  rLbT"TRO”"'-MAx  TO  h-HaX''. 

eUTPOT(i02)'  IF  YSu  MAKE  A MISTAKE/  PRESS  SS2  AND  CLEAR  PAUSE' 

iCO 

126 

-j(j  < = li3  ^ ^ ^ 

MMAX  = MAX(K) 

12/ 

128 

225  ^.'RI  Tc  ( iOE/  1030  )'  NC  {K/M? ASS  ) / MMAX  7KVTT71. 

SUTPuTdC?)  ' enter  desired  MAXIMUM  --  F10.3' 

X c;:^ 

15C 

rMLMU(iCc;/iOJl)f’.AA(^) 
WRITE( 1C2/ 1032)  MAX(K) 

131 
1 3R 

P A J 2 E.  0 2 

IF(3E‘SE  Switch  2)  225/230 

1 

13^ 

c;  JU  L'JN  1 I '-Ut 

C **  SET  FIPST  value  AND  SCALE  FACTOR 

i J r 

1 3 f 

IF(  VAX  ( n .GT.C.^  ) AWPAY!  (NT  + 1 ) = *^AX  ( 1 ) / I .6 

Tj/ 

135 

IF  ( "AX  1 1 T.lE  • 0.0  ) ARRAY  1 I NT  1 = -’AX  (1  ) /O.S 
IF(MAX( 1 ) .LE.P.O  APRAYl (NT+1 ) =-MAX ( 1 )/0«8 

140 

I t X 1 • G ^ * G ) A ' K A y ' ( iN  ( J = ^ • u 

IF(yAX(c)  *GT*0.0)  APRAY?(KT+1  )=*^AX(2)/1.6 

1^1 

U2 

A''r^«Y‘''('*I^*'  A\(c.^/C*8 
ir(-lAX(E)  •L5*0.0)  APf^AY^(NjT  + l)  =-""AX(  2 )/G*8 

1*1  3 
144 

IF(r^AX(3)  .GT*0.C)  Ak^AY3(M-^1  ) A X ( 3 ) / 1 . 6 

1 H 'J 

146 

ii’(  AX(3J.LE.0.0)  A‘-RAY'(NIJ=’ma(.)/U.8 
IF{'1Ay(3)  .LE.C.O)  ARKAY3(NT  + 1 )=-''AX(3)/G.8 

* H / 

1 43 

Al*\f  ) • • j 

TT  = X(^T-l  )/AXL£N 

1 ‘t'7 

150 

IT  ■ =~y r-iT-D'/AXEtT:  ~ 

IF(TT.GT.IT)  TT=IT+1.0 

i b 1 

152 

jrrvnTTNFTi  ^ “ 

2FRS=C.O 

* ‘0  o 

15^ 

.•(■•L  i b = J 

DO  602  N = 1/MPLTS 

1 5 6 

G * * 

C Yl  IS  YAXIS  FOP  LORES  SC  F 1 E . ‘-uMPER 

rb'7 

~T Y2  IE  YAXliI">  MR 'ENO  L 1"^  Or-yAXlS  LAbLL 

c Y3  IS  YAXiS  FO:^  1ST  LINE  ^AXIS  LAcEL 

16G 

■~T T4  I'J  YAX1S"F-R  !'bF  SLALrr'AoM-^LP 

c ** 

A-6 


w 


161 

16? 

Y1  = 0.2+{N-1  ) *1.7 
Y2=Yl+0.6 

163 

16^ 

Y3=Y1+0.7  - : • 

Y4=Y1+1.35 

1 65 
166 

L = M 

167 

16<^ 

IF(‘'iPASS*EQ.  1 ) L=7-N 
C ♦*  '^RITE  YAXiS  LA=»ELS 

1 69 

170 

IFrUxC")  .GT.0.0)  call  vu!^5E^(-.2iY1/C.07^  ZrRt),p.0i2) 
I?(“AX  (M)  .lF.0.0)  CAl  L NI.^cER( -.2#  Y1>0.07/MaX(K)  .0.0>2) 

171 

172 

call  9Y.-'biJL«-.2/ Y2^  • C7  / C3  ( L ) ^ 0 . 8 ) 

call  SY*^brL(999./9°9.,  .07*C'*(L)iO.O/8) 

1 73 
17<. 

CALL  byr-'b?L  ( - *2^  Yjj  .C7/CKL)iO.O^S) 
call  9Yf'bOL(99y./99'-'-,  , ,C7/C2(L  ) 'O.OiS) 

175 

176 

IF  .Gf.O.O)  call  \ur^dEri{-.2»YAi  ,07/YiAx(Njin.0/2) 

IF(VAV (’M  .LE.O.C)  call  MjYGERI -.2# Y4/ . G7> -M A X ( M)  . 0 . Oi 2 ) 

177 

17?. 

602  CONTImjE 

610  call  PLrT(i.0,0.0/-3) 

17‘J 

180 

IF  (.\?A33*E&.2)  go  to  620 
C **  DRAW  X AXIS  IF  FIRST  PASS 

lai 

18? 

call  aa  I3(0.C/0.0/0X/-3/AXlEiN/Q»0/0.0#TT) 
620  09  600  N=li3 

1 & 

1 84 

C ••  oL  1 Cf'IGIG  AT  L0--ER  LEf’T  01-  PLOT  FOR  EACH  ChAN.\EL 

IF(rj.EC.l)  call  PLFiT(O.0.C.1^-3) 

lab 

136 

IFIN.-E.l)  CALL.  PL0T(C.0il.//-3) 
C **  DRAW  box  Araiji\-i  TITlE 

lb/ 

18P 

CALLi-LOi{-1.3/?j.C,»2) 
call  PL'^TC-l  .3/ 1 .6,2) 

i C ^ 

13C 

u-'LL  r i_L  1 (0»0/ 

call  '"LOT  (0.0*0. C, 2) 

101 

192 

C *♦  Di3Aa  Y AXIS  TICK  I'lAR'KS 
DO  601  \'N=  1*9,1 

193 

19'» 

IF(^J^.^E.5)  call  PL“''’(-o.C5,PN,3) 

'19b 

1 

li-  (RR.LO.b)  call  '"L“'T  (-0. 10,PR,3)  " 

call  a'LCT(0.C5,FK,2) 

19^ 

198 

601Cb\II'.Jr 

C *•  draw  E'^X  AReUND  PLOT 

13s 

2CC 

CALL  -L3 1 (G.G,Q.0,3)  ^ 

CALL  PLf:'T(AXLEN,C.C,2) 

cil 

202 

CAi_L  Pu^'ilAXLi. '3*1.60,2) 
call  PL^T(AXLEM,C.8* 3) 

2J3 

20^^ 

b = R-N 

C **  DRAW  CERTERlIME  IF  RFCFSSaRY 

2Cb 

206 

IFC1AX(m)  .lE.O.C)  call  FL0T(0.0,0.8,2)  ^ 

call  pL9T(0.0,1.6,3) 

c07 
c 0 8 

CALL  '-^LTT  (AXLLi'.,  1.6,2) 
600  CONTTViLE 

209 

21C 

\ T = 1 V 1 - 1 

IF  ( 3)  •gT.C.-''.  ) call  ‘'^LOT  (0.0  / - 3 - 3 ) 

?il 

212 

IF  ('  Av(3),LL.C.r  ) CALL  PlI^I  (0*Cx“3.6,-3)  ^ 

CALL  L rE(y,A-RAY3,\T, 1,0*0) 

2 ; j 

214 

!.■(  'AXIpJ.uT  •'-*  ')  C'L-L  ''LOltu.D,“G.L,*J) 
IF(Max(2) .GT.C.G)  CALL  PLOT ( 0 . 0, 1 . 9, - 3 ) 

A-7 


ai5 

216 

• If^C^AX(?)  .LE.G.O)  call  PL9T  (0.0/1  t7i -3) 

call  LI\E(x.  a::>?ay2/\T.  1>C/C)  • 

217 

1--  C':ax(2)  .GT.  :.a)  call  -LC*T(0.Qi-0.2i-3) 
I?  ( I’AX  ( 1 ) .GT  .^.C  ) call  PLOTCC.Oi  1.9/-3) 

1 

C'^LL  ^l.C,'T(C’*0#l#7#*3) 
call  L I'\E(Xi  A'-v-?AYi>\'T/ 1 ^C/0)  . 

221 

222 

lA  (f'Ay(  1 ) .GC.O.O)  call  ®LGT(0.0/-0.2/‘-31  ^ T" 

700  C"“\T  Ir-^UC 

2c3 

a?4 

C**Gi.LUPLRIGINF3KN.£wPL0T' 

X'.E:w  = AXLEX'  *•  10.0  ■■  ■ . . 

C£IC 

a?.6 

L'"LLPLL'l(Xi'.L-v/”a.4#“3) 

r Plots 

ccf 

c28 

A ^ l D 1 'j  0 . 

•SJTPUT.(  102)  ' TY=>E  i if  you  'aANT  FORE  PLOTS' 

c,’ci? 

230 

“ K-A'JI  icii  Icoi  ) INF'-uTm 

. IP  ( Input ( 1 ) .'£0. 1 )■  go  to  i 

f.  *1 

23? 

L * * t '*  C.  " I o r 1 m " i i\  A I L 

call  .PL^T( 0*0/0*0/993 ) 

233 

23'* 

LALLLXIl 

END 
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• T3 
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VO'AR 
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rc 
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'65 

• c C - 

ir^o-.c 

Ilf 
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• 

i ‘ ' J r. 

• V 0 c : 

oj 

1.7CE67 

• :-‘ou‘n5 

be':*') 

I • #) Ir  1 7 • I* OC 1 3 io  j 
1. 52107  .00:17?:** 

•7:c:c 

i.'ach 

1.27716 

• OOO;  71  7*. 
.0001576? 

• / 3 - . - 

• v-  TT» 

; u * 

, a*  tCO 

1 . 1 : 1 1 3 

•00013 

»32 

• ? t ? 0 1 

1 * 'J  b : 7 
• 99735; 

.:O011b97 

.yir 

. O 1 
. 59=io 

• JsZ  ■ 3 1 d'J 

.cro:7i22 

» *• 

♦ / 

T71 

10:::': 

.?3s:- 

•OsClv 

‘30 

1 C3  v'^v 

i.5cc:c 

.99^:- 

- *Wv  J . 

• .c::i ? 

■JO 

c-i.r.cror 

• 3 c . V , 

• 5 « 

• jOO'CO 

•b3300 

L'.’ 

• Jw 

s:ooo 

•0: 

•0  0 

.03 

.00 

.00 

.oc 

.CC 

_ .00 

. . 

u-i.;: 

'-bj*  JO 

-•b'JUU 

529. AD' 

r s ,-’.<•  C 

11  .00 

u.co 

11. OD 

17.17 

a^.co 

2S.27 

3C.64 

Ao.EA 

52. SO 

• {.  J 

* b J 

i . b 1 

• r 3 

— roTT 

b * b J 

“31.20 

K 1 . L J 

• CD 

.CD 

• 30 

• cc 

.CC 

• cc 

• CP 

. CC 

-107. 9; 

• 00 

If?!:: 

?:5.:c 

3C3 • 60 

• L . 

453.93 

• <.0 
53?. 50 

.LC  ■ ’ 

732. CO  ' 

1 t • . J 

i 0 » v_ 

li'.o; 

£ : • ■»  J 

c/.b-J 

.>  J < ft  L' 

4L  • 1 *• 

97T5JT 

*•6  • ttC 

•CO 

1 .C3 

2-o: 

3.0c 

5.00 

6. CO 

33.03 

3J.00 

61*00 
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• :: 
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• 00 
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• 00 
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J9.C0 
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• 00 

.CO 
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C- 
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* 

---TrR: 

jE  CDsvtA 
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■'Ti'  A*'.'  PAT  ID 

■^.u 

• 
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Srrcj 

T0P5  iC 

GEAR  RATifiS 

SCMtflULE 

• 

• 

''ibS  ( uS  > 

2435C.C 

i^ATKj 

kATlD 

no«»-Ai  • 

• 

* iSs  *:''  '‘cfv-;  *-«-r 

-S  (LP) 

12!7D.D 

• 

• 

" ) 

7=.3 
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1ST  2.067 
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itT’cs  .:c?c 

• 

.roc 

2.A«0 
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L9Ci<UP  AT 

23.0 

MPH 
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C.-JnC 
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.960 
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S.57 — 

3 * cb 
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• DfcO 
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.:£i 
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• •'CO 
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?.*.6C 
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3.-2 
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i - • . - 
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•699 
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1.000 

.960 
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^ ■ 

• - w 
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9a.  A 

23.1 
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• - 3 

Ic'b* 
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“?4.T 

T579 — 

b.r>7 

^•11 

"I'iroD 

— 7Vzn~ 

• 90S 
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.1?" 

• rc 

• ccr. 

1 Z r 3 • 
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e.f7 

8.23 

1.000 
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.960 

.*i58 
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LZ  * 

• 13^ 

£ . 

• >.  V 
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i c b • 

-7r.T — 

. u''!f 

'T’TTSir 

e . p / 
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1 "L'U'J 

. J 6U 
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3 = 

• :c 
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9,.*. 
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. 6d.9 

8.67 

A .AA 
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• HyK 
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C ■ » ^ V 

• * - : 

c - 

• ^ 

» V 

: £ 1 ; • 

1 H . , 

1 j ♦ * 

• 3 dj 
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" ■ o.c-7  '■ 
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1 . 

. t j 

. :7cw 

. y -•  / c • 
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2^ 

• ■ 1 
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• 

6.:'5 
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£ 7 t W *> 

• ii/ 
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• .'b 

• r • ^ - i 
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• 

' b . 

8*  73 

if.7J 

“TTcocr 

. Sf  1 
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3c  • C« 
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32.9 

.%?1 

{a. 37 

6,55 

8.89 
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- 

• 1 

. 

t .*  1 • 

J / o 

J b 
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t9'5S 
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“ c • C * 

.19; 

*. 

. 3 
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.-,.•/ 
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.930  1* 
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£ 
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• P'. 

.CD 

.3:: 

8:7. 
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37.9 

.<.*56 

16.53 

.oc 

b.73 

• 015 

2.AA1 

.cco 

.937 

•967  1« 

3^  • w- 

• * • ** 

• .>v 

bwb. 

c-  / . l 

“T7T9 

» ••  1 o 

lo.Lc. 

^ « Ob 

• L>UU 
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.937 
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-:oc 
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• c.c 
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• C • ’--'t 

10?3 

lu./ 

52. b 

• 7!U 

1 / . bt- 

■TTC5 

*•12 

4 • UU  J 

.960 

T9Rir 

«yy8 

• F5T"2T“ 

1-1 

• :9 

580 

1 7 • ’i  6 

-2.533 

901 

197.8 

33.9 

.513 

17.39 

7.20 

♦ •13 

l.OOO 
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.959 

i.oco 

• 968  Z • 
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JOINT  PRBaAHH.lTY  Pr>;slTY  IPER  CENT) 


TNTllNr'sTiAt'Y  4't^TE"Tf!R“E"V5T  C':'5!Kr‘£PEEy 


SPEED  intervals 


Iv"t^v*LS 


5C1 

630 

Too 

ECO 

900  • 

ICCO 

1103 

1300 

1303 

1*00 

isoc 

1(00 

1700 

1800 

1903 

2000 

2100 

2200 

23C0 

Cno, 

?13 

l»CJ 

1300 

1100 

TcUT 

1 JkJW 

1 **Ce# 

lEuU 

1 6 Ju> 

“I7CB~ 

1 5CJ 

19CC 

2CCC 

"2TDT" 

£2UC 

d JCC 

' **CD — 

r ^ ^ • 

• ’ 

• or» 

• 00 

• U3 

•■JO 

.00 

• DO 

.03 

• U J 

.or 

• 00 

.00 

• oc 

• 00 

• I'U 

rcD“ 

• 00 

•cu 

r 

• C"' 

•CO 

•oc 

• cc 

.00 

•cc 

• oc 

.00 

..OC 

.00 

.00 

• 00 

• CO 

.00 

.CO 

.03 

,00 

.00 

• CO 

1 w w 

• 

• JO 

•Cw 

• 00 

• CO 

• C3 

• W'J 

• CJ 

.03 

• C'J 

.00 

yCO 

• CO 

• cc 

.00 

^ ou 

• ou 

• so 

• C3 

I ? ? - • C*  w 

• c: 

• or 

• 3: 

• 3C 

• 30 

• CO 

.37 

1.23 

.00 

.00 

• CO 

.00 

• CO 

.00 

.00 

• CO 

• 00 

.00 

.00 

• 0 • 

• ^ j 

• c^ 

• 

• U V 

* Vv 

.C*. 

• ly  J 

•r.3 

• 00 

. U J 

• uc 

.CO 

• ou 

.CO 

.CO 

• 00 

• CG 

. G J 

7-  5: 

• c: 

•CO 

• CO 

• CC 

• 00 

• 18 

.^6 

.00 

.00 

• CO 

.00 

.00 

.00 

.00 

.00 

• 00 

.00 

lOC 

• CO 

r - • i w 

• i'  * 

• CO 

• Cl' 

• oc 

• 6'« 

• CO 

32.c*» 

• 00 

• cc 

• OTT" 

lOO 

' .cc 

• cc 

.00 

^LJ 

fUiJ 

.cc 

. ss 

i:'-i5C 

• O') 

• Cu 

•CO 

• CO 

• 09 

•6‘* 

.00 

.73 

•03 

.00 

• IS 

• 6^ 

.27 

.00 

.00 

• cc 

,00 

• oc 

.00 

. 7 .• 

• V j 

• vV 

• 0 '.' 

• C 3 

l^bc 

* 00 

• CO 

• cr. 

. uC 

• 00 

• CO 

• cc 

• CO 

.00 

• UJ 

. C w 

• 00 

• V/w 

• O') 

• 0'^ 

• 0: 

?6  • 66 

» 30 

•CC 

• CO 

.03 

• 00 

• CO 

• 00 

.00 

• CO 

. CO 

.00 

• oc 

.03 

. 30 

• Co 

r i; . • - « - 

• w y 

• . . 

w • 50 

. • J.O 

• w y 

•0  J 

• 

. . _i 

• r.G 

t w J 

. C J 

. cc 

• Cw 

. vC 

• cc 

. 0 V 

• cc 

2CCT 

• IS 

•c? 
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• c^ 

.3: 

:*5? 

• ro 

• wO 

• CC 

• 03 

• CO 

• 00 

?co 

.00 

• CO 

.03 

,00 

^00 

• cc 

.00 

2 w • ••  V - 

• Lf-^ 

* w w 

• AjO 

• o3 

• 1 j 

i»-j 

* J6 
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•C3 

• 0 J 

• vC 

.00 

• cc 

* C J 

. .00 

• oc 

• cc 

.oc 

tt  J 

• C*‘ 

•00 

•DC 

• 00 

• 00 

07 
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.00 

.00 

.00 
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.00 

.00 

.00 

• CO 

• 00 
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• s.\l 

• 00 
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• CO 

• oa 
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l.'^C 

*uu 

•cc 

• 00 

.00 

.00 

.03 

• oc 

. wC 

•lyC 

. Gw 

!^Cv---C 

• Cl 

•CO 

• 00 

• oc 

.33 

•00 

.00 

.00 

• ia 

1.10 

.55 

.00 

.00 

.CO 

.00 

• 00 
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• 00 

• 00 

::  t - • t j « 
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• WW 

• 03 

• ij 

• 00 
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I • ly 
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• c; 
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• cs 

• L- 
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• 00 

.00 

.00 
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.00 
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• 00 

•00 

• 00 
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• c ; 
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“ILES  PER  GtLL<:\-  1.3-.7 
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■N.v:rrsr  s'a;'3  Pc.r-v!'lt;-5' 
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h‘^.\:CI*D.E-I.SCCDMDD 

DRIVE ••••••«M(iT*RiNG 


p?rER 

r-d^ipe: 

BY 

Ti--: 

•'R'EEL 

^396*16 

•9  i * j I i J 

JY 

3Y 

T*m* 

AXut 

S-AFT 

7765. IC 

-1)1.02 
•) tR. S5 

J-  .•  At  -\ 

jV 

1-1 

-ii,-..(iH 

S'-E.*  5 

5‘'':w!=?E'3 

?v 

Tk.l 

E'.or  ' flva'i-eel 

l3*»3S»n 

•as.cT 

= ?*!•? 

. -1 
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rjTT": 

TrnrTTn — 

Dv\A-'ic 

PY^AMIC 

Dv.jAMIC 

OVMAKIC 

TI“r 

I'.STAM. 

ACC. 

rLY-HiCL 

CONVesTCR 

c=<ivp. 

hcar  axlC 

GEAR 

Ts5^jf 

7 C 

tuTf’jT 

biiAr  f 

f!UTr  jT 

YOKO-.-r 

T?9CJ£ 

i-:3 

t • j» 

5.V.e2 

e J.;  • 0 J 

1$h5. J- 

!• 

!• 

2.3.: 

3‘-5.J3 

327.96 

5.3.33 

106  3.1  A 

5216.09 

C U . w ? 

J<':: . 7 3 

D e 1 . c J 

“Trojrrr 

5 J 6 . 6 A 

i« 

k 

<•39. &a 

?7.35 

A22.R5 

5-1.92 

1371.37 

cpfro.bA 

1 • 

c • 

*•  "C  * 

c t • a /' 

A ('  2 . 3 2 

bj6.67 

10b*».66 

52^0*06 

!• 

!• 

6«cr 

S3fcOC 

31.9, 

^Co.Sh 

530.53 

1355.66 

5223. OA 

b-* «cl 

J J • C 4 

-.77.7b 

nrrrET 

0 J . »•  6 

A-,  't»  . cic 

2. 

6*CC 

616. 

S'*  .^? 

635 » 1^5 

77C.S0 

IC'2.32 

5167.19 

2. 

9'?: 

/ - » J *. 

j / . 2 J 

66  5*01' 

7 '3c  * T% 

lw4CC  . 9/ 

5116.2C 

?.  • 

i:-:: 

117. 

3?  ♦ 86 

1C6. 1 1 

111.72 

lt>1.50 

7A7.60 

2« 

11  '"'J 

C / ••»!> 

c / . 1 ^ 

0 6 . A c 

75767“ 

jA  / • 1 2 

2* 

12-:: 

?<» « «.3 

27. ‘•6 

66*73 

56.10 

75.23 

36A » 96 

2. 

iJ*Vw 

.•  n • ..  « 

^ t *> 

*“  t . 

5;.  . 2-* 

7 i, ..  J 

J t J . A 

*-. 

9<. . -3 

'’7.4.6 

66*96 

56  * 2A 

75. ,3 

365.9a 

?. 

1 ; • V V 

cf  / . - 6 

fro  • !?h 

5TT2T- 

7b.  A3 

365  « 'J‘» 

?• 

ifc*?: 

“...Hi 

27.4*6 

66*56 

56  • c A 

75. .3 

365.9A 

2* 

i /’  • : r 

-'*••<»  J 

c / • ".e 

ho  * Jfr 

56. 2A 

75*vr 



c • 

1 « • 

3A..1 

?7.A6 

frfr . 96 

5d.2a 

75. .3 

365.9a 

2. 

f Jj 

t *1 . ,''1 

75773“ 

3TT7T5 

£. 

c : • r c 

3-. -3 

66*06 

56.  cA 

75.  A3 

365.9a 

2* 

3*9.  «.J 

c7»A6 

^6 » Jfr 

51- . t'-* 

7 3 . .*  J 

355  .T^s 

2* 

?2  • rc 

9-  “.3 

?7.A6 

66*56 

56.2a 

75.6  3 

365.9a 

?• 

C • • . V 

fr  0 . 5 6 

OC  * 4.A 

70. -3 

j65»9a 

i< 

2..": 

?<.  • 4,3 

27. .A 

66.96 

56.2. 

75.63 

365.9a 

?• 

? ^ , 

c / . - n 

e 3 . 'J  i> 

5 1 . t A 

7 V . J 

0 rr  y • 

£• 

?‘-.-3 

2 7 . H 6 

<‘6*96 

bo . 2A 

75. .3 

365.9a 

2* 

^ • 1 

c / . ■»  0 

6 6 . 5 0 

bfr.c-. 

75.V3 ' 

J t>  5 . 

2» 

3£  • CC 

.77.  ’’4. 

27.^6 

-i:=*3A 

-5®. a; 

-115. .8 

-565.72 

2. 

c '■: 

" D . ^ 

9 . Cb 

•-y.fco 

• C 6 • A'cT 

• Jf'i  » 1 £ 

if. 

■3c*:c 

2..73 

82. ?9 

69.71 

97. M 

.73.96 

2. 

J , • , w 

* '/ . // 

c J . 7 ^ 

' 1 70 . 75 

— mrrr- 

*.1, . >\<> 

y ' » -J . 0 fr 

£• 

32»*'C 

?S4».  \k 

23.33 

237.65 

139.79 

279.71 

1392.36 

?• 

jj*:: 

i 1 b . 1 f 

i j . 7 : ■ 

• ;j.3b 

1 -.o  . i A 

253, 

1* 

2'7-r.7«; 

23. 

2M.'3 

233.1. 

•35.63 

2031.06 

1* 

j - • 

317*'::- 

i . : :"■ 

3!'CV2r* 

C * J » / 1 

51 A ,“72“ 

? /y J . 

!• 

jC  • 3C. 

2?^. .23 

23. :c 

2"  5*60 

2- 

596.27 

25:2.13 

1. 

j;* 

C.  ^ J 

t : i . £.  i 

— 3:1 .70  " 

75:  ,b7 

jO*»t  . 0£ 

!• 

33.3: 

t*»6 » 76 

25.30 

2?.. 32 

.79.21 

527.65 

•612.50 

i» 

“3S*3T 



j 

J • 

2'*7.l<. 

23. DC 

22A, J4 

A 5 1 • A J 

S3  3 • nO 

« oAc • 35 

!• 

hi*:: 

£*7.1;“ 

c J • 'J  J 

c2-  . 

•Act  . V5 

Sj3r8C“ 

AfrAt . JD 

!• 

H2.n- 

2-7.H 

23.03 

22A. lA 

AS2.Ab 

933.60 

•662.35 

1 . 

r J . J 

22VryT“ 

Abt' . A:> 

b J.3 . 0 J 

6 A t « J D 

1* 

2-7.14. 

23.CC 

22a.  lA 

Arf2.A5 

933.30 

A 6A  2 * 35 

i* 

’ j.CCT 

t'c^  1 ^ 

A \i  c • A t< 

9j3.fr5' 

■* 0*1  ^ * Jy 

1. 
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2£t*l6~ 
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4642*35 

1* 

2*7. u 
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rO.CO 

2=4.14 
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!• 
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1- 
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